Loop through 4 named worksheets in a workbook

[Brian F]

Windows 7, Excel 2010; I have a workbook with four named worksheets ("Sheet_A","Sheet_B","Sheet_C" and "Sheet_D")
I want to loop through those for sheets and perform the same tasks in each sheet. Can someone tell me how to loop through each of these 4 sheet. Thank you in advance for any help offered.

 

[Firefly2012]

Hi

You could use something like this:

Dim sht As Variant

For Each sht In Array("Sheet_A","Sheet_B","Sheet_C","Sheet_D")
   'now do stuff with each eg:
   Sheets(sht).ClearContents
Next sht

 

[JackDanIce]

Maybe try:

Dim iSheet as Worksheet
For Each iSheet in Sheets(Array("Sheet_A", "Sheet_B", "Sheet_C", "Sheet_D"))
  With iSheet
    MsgBox .Name 'replace with your code
  End With
Next iSheet

 

[taurean]

Try:

Public Sub LoopThroSheets()
Dim ws As Worksheet
For Each ws In Sheets(Array("Sheet_A", "Sheet_B", "Sheet_C", "Sheet_D"))
    With ws
        'Write sheet specific code here.
    End With
Next ws
End Sub