Activating all sheets in turn in an Excel workbook

[tom1681]

I'm trying to get a VBA script to enter data in certain cells on every sheet in an Excel XP (2002) workbook. This script will be used in several workbooks all of which have a different number of sheets with different names. I can get the number of sheets by using Worksheets.Count, but can't activate each one in turn as I can't use a variable in the (sheet name).Activate command.
Does any one have any ideas as to a possible solution?

TIA.

---
Tom

 

[xlbo]

Use the sheet index number or the worksheets collection

Sub UseCollectionObjects()
For Each ws in activeworkbook.worksheets
ws.range("A1&quot.value = ws.name
next
end sub

Sub IterateThruIndex()
For i = 1 to activeworkbook.worksheeets.count
sheets(i).range("A1&quot.value = sheets(i).name
next i
end sub

HTH
Rgds
~Geoff~

 

[tom1681]

Lovely! That second one is just what I wanted.

Ta.


---
Tom