Sheet loop Sheets("A's").Select

[Peterfc2]

I have 26 sheets named A's to Z's
macro edit

sub

my code etc

Sheets("A's").Select

end sub

The only change is the code is Sheets("A's").Select

So I need a loop that just changes - Sheets("A's").Select to Sheets("B's").Select etc.

 

[TheSilkCode]

Hi Peterfc2-

So there are two ways you could do this- version 1 just goes from 1st tab to 2nd, 3rd... regardless of their alphabetical order. Version 2 goes from A to B, to C, etc...

Public Sub sampleCodeV1()
Dim wb As Workbook
Dim wsCounter As Long
Set wb = ThisWorkbook
For wsCounter = 1 To 26
    wb.Sheets(wsCounter).Select
Next
End Sub

Public Sub sampleCodeV2()
Dim wb As Workbook
Dim wsCounter As Long
Dim colLetter As String
Set wb = ThisWorkbook
For wsCounter = 1 To 26
    colLetter = Replace(Replace(wb.Sheets(1).Range("A1")(1, wsCounter).Address, "1", ""), "$", "")
    wb.Sheets(colLetter & "'s").Select
Next
End Sub

Hope this helps,
TheSilkCode

 

[Peterfc2]

Hi Peterfc2-

So there are two ways you could do this- version 1 just goes from 1st tab to 2nd, 3rd... regardless of their alphabetical order. Version 2 goes from A to B, to C, etc...

Public Sub sampleCodeV1()
Dim wb As Workbook
Dim wsCounter As Long
Set wb = ThisWorkbook
For wsCounter = 1 To 26
    wb.Sheets(wsCounter).Select
Next
End Sub

Public Sub sampleCodeV2()
Dim wb As Workbook
Dim wsCounter As Long
Dim colLetter As String
Set wb = ThisWorkbook
For wsCounter = 1 To 26
    colLetter = Replace(Replace(wb.Sheets(1).Range("A1")(1, wsCounter).Address, "1", ""), "$", "")
    wb.Sheets(colLetter & "'s").Select
Next
End Sub

Hope this helps,
TheSilkCode

For wsCounter = 1 To 26

If ActiveSheet.Range("a3") = "" Then
Exit Sub
End If

    colLetter = Replace(Replace(wb.Sheets(1).Range("A1")(1, wsCounter).Address, "1", ""), "$", "")
    wb.Sheets(colLetter & "'s").Select

Works fine up to the I's. I have no data in the I's ActiveSheet.Range("a3") so I put in a exit sub than does not apply now. What do I replace the exit sub with to make it carry on to the J's?
One other thing the last Next should it be Next wsCounter
Peter