Ty a lot man!!! God bless u for that!



"Dave O" escreveu:

This macro will do it, altho you may need to adjust the cell
references. The macro will start writing formulas starting at whatever
cell is highlighted when you run this.

Sub All_Tabs()
Dim K As Byte

For K = 1 To 150
'column A
ActiveCell.Offset(K - 1, 0).Formula = "='Form (" & K & ")'!a1"
'column B
ActiveCell.Offset(K - 1, 1).Formula = "='Form (" & K & ")'!b1"
'column C
ActiveCell.Offset(K - 1, 2).Formula = "='Form (" & K & ")'!c1"
'column D
ActiveCell.Offset(K - 1, 3).Formula = "='Form (" & K & ")'!d1"
'column E
ActiveCell.Offset(K - 1, 4).Formula = "='Form (" & K & ")'!e1"
Next K

End Sub