Originally Posted by Claus Busch

Hi,

Am Tue, 24 Jul 2012 18:55:36 +0000 schrieb cupcakex:

Yes 2nd row in each sheet

following code copies the header and the rows to each sheet:
Sub CopyRows()
Dim i As Integer

With Sheets(1)
For i = 2 To 47
.Rows("1").Copy Destination:=Sheets(i).Range("A1")
.Rows(i).Copy Destination:=Sheets(i).Range("A2")
Next
End With
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2