try
Sub copytoall()
For Each ws In Worksheets
Sheets("sheet1").Range("a4:x4").Copy ws.Range("a4")
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"masterbaker" wrote in message
...
I'm looking for an easy macro that copies row 4 from sheet1 and pastes
data
(column headers) in Row 1 on all the other tabs. The number of tabs
fluctuates.