Give this macro a try (where I assume the data is in Column A starting in
Row 5 on each sheet and the formula you want to copy down is in B5 on each
sheet)...

Sub CopyFormulasDown()
Dim V As Variant
For Each V In Array("x", "y", "z")
With Worksheets(V)
.Range("B5").Copy .Range("B5:B" & .Cells( _
.Rows.Count, "A").End(xlUp).Row)
End With
Next
End Sub

--
Rick (MVP - Excel)


"Max" wrote in message
...
I have slightly different formulas in different sheets (named as say: x, y,
z) that I am currently filling down by double clicking on the top cell in
each sheet in turn. The top cell is the same in all sheets, eg: A5,
although
the used ranges to be filled may be different. Any sub to do this ? Thanks