How do I loop through a specific set of worksheets?

[Eric G]

How do I loop through a specific set of worksheets in order to pull data from one worksheet and push it into these other worksheets?

For example, I have a worksheet called, "Source," that I want to pull the data in Range("A1:A5") and "paste" it into in my other worksheets called, "A," "B" and "C," starting on Range("A1").

Any ideas?

 

[Fluff]

How about

Sub PasteData()
   Dim Ws As Worksheet
   For Each Ws In Sheets(Array("A", "B", "C"))
      Sheets("source").Range("A1:A5").Copy Ws.Range("A1")
   Next Ws
End Sub

 

[Eric G]

Perfect. Thanks, man.

 

[Fluff]

Glad to help & thanks for the feedback