Repetir una formula en varias celda cambiando el nombre de hoja

hola gente

tengo que copiar una formula Si en una hoja, el problema es que tengo 400 hojas y en cada celda la formula cambia de nombre de hoja.

Hoja 1: A1=SI(Y(Lucas!F3>30;Lucas!F3<4000);Lucas!B2;"")

Hoja 1: A2=SI(Y(Martín!F3>30;Martín!F3<4000);Martín!B2;"")

Hoja 1: A3=SI(Y(Pedro!F3>30;Pedro!F3<4000);Pedro!B2;"")

Sub RecorrerHojas()
Dim numHojas As Integer, celda As Integer
numHojas = ActiveWorkbook.Worksheets.Count
celda = 2
For t = 1 To numHojas
If t = 3 Then t = t + 1 ' Este 3 indica las hoja en la que se grabarán los datos.
ActiveWorkbook.Worksheets(t).Activate
If Cells(3, 6) > 30 And Cells(3, 6) < 4000 Then
valor1 = Cells(1, 2) ' B1
valor2 = Cells(2, 2) ' B2
ActiveWorkbook.Worksheets(3).Activate ' Aquí le indico que grabe en la hoja 3
' Celdas de la 3ª hoja donde pone los datos
Cells(celda, 3) = valor1 ' Celda Cx
Cells(celda, 4) = valor2 ' Celda Dx
Else
ActiveWorkbook.Worksheets(1).Activate
Cells(celda, 3) = ""
Cells(celda, 4) = ""
End If
celda = celda + 1
Next t
End Sub

El problema es que en todas las hojas tengo la apertura de un userform automáticamente se seleccionan las hojas. Asi que la macro que me pasaron no me sirve porque como recorre las hojas se abre el userform continuamente.