Need to select all sheets in workbook

[loves_automation]

Simple question, I think. I'm currently doing this by Sheets(Array("TOTAL", "K12", "HIED")).Select but would rather be able to just say something like Sheets(All).Select so that when the number of workbooks changes, my macro doesn't have to.

[Jack in the UK]

try this

simple code will add test in cell a1 all sheets

...................
Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Select
Sheets("Sheet2").Activate
ActiveCell.FormulaR1C1 = "test"
Range("A2").Select
Sheets("Sheet3").Select

.............

amend to suite

[loves_automation]

Yes, agreed this will add it to a1 in all cells, but that is not quite what I was asking by the question. Basically, rather than specifically having to select Sheet 1, Sheet 2, Sheet 3, Sheet 4, etc. I just want to select ALL sheets (so that when the number of sheets changes in the future, my macro automatically picks them up).

[cpod]

Dim arrSheets() As String, intCnt As Integer
ReDim arrSheets(Sheets.Count - 1)
Do Until intCnt = Sheets.Count
arrSheets(intCnt) = Sheets(intCnt + 1).Name
intCnt = intCnt + 1
Loop
ThisWorkbook.Sheets(arrSheets).Select

[loves_automation]

I took out the "ThisWorkbook." in the last line and it worked like a charm. Thanks!