How To Copy A Row using VBA

[bloodmilksky]

Hi Guys,

I was just wondering if anyone knows how to copy Row 8 From Sheet 1 to A1 in All Sheets in the workd book.

Many thanks

Jamie

 

[PCL]

Try

Option Explicit

Sub Treat()
Dim WS  As Worksheet
   For Each WS In Worksheets
      If (WS.Name <> "Sheet1") Then
         Sheets("Sheet1").Rows("8:8").Copy Destination:=WS.Range("A1")
      End If
   Next
End Sub

 

[JLGWhiz]

Another method

Sub t()
For i = 2 to Sheets.Count
	Sheets(1).Rows(8).Copy Sheets(i).Range("A1")
Next
End Sub

 

[bloodmilksky]

Try

Option Explicit

Sub Treat()
Dim WS  As Worksheet
   For Each WS In Worksheets
      If (WS.Name <> "Sheet1") Then
         Sheets("Sheet1").Rows("8:8").Copy Destination:=WS.Range("A1")
      End If
   Next
End Sub

Perfect thank you so much ^_^

 

[PCL]

You're welcome Jamie, I'm please if you are please