Extracting Data out of *Many* worksheets

[GeneralShamu]

I have a file that currently has 37 worksheets. The first worksheet, call it sheet 'A' will tell us how many additional sheets we have (currently 36).

The naming convention on the sheets is not numerical (i.e. 1 2 3 4 ...) but:
A1
B1
C1
...
Z1
A2
B2
...
etc...

Does anyone know how I can create a loop that can cycle through these worksheets? After entering each worksheet I will need to extract specific data from that sheet itself but that's going to be a separate series of nested loops.

 

[Andrew Poulsom]

Like this?

Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
'    Do stuff with Sh here
Next Sh

 

[GeneralShamu]

Like this?

Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
'    Do stuff with Sh here
Next Sh

Hmmm...haven't yet tried this but the first question I have is that the first sheet ('A') must be handled entirely differently then the rest.

What would be the exact ordering it would cycle through the sheets in the workbook? Would it be in the order you see at the bottom of the Excel window (i.e. in a new file it'd be "Sheet1" "Sheet2" "Sheet3")?

The actual file names are not alphabetical either...so it would be something like:
A1
S1
O1
N1
D1
J2

 

[Andrew Poulsom]

The order is the order of the tabs. You can exclude a worksheet like this:

Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
    If Sh.Name <> "A" Then
'        Do stuff with Sh here
    End If
Next Sh