Looping Code through a WorkBook

[pcdaveh]

Does anyone have some code that will allow me to perform the same procedure on every Worksheet in a Workbook?

How do you Set up a for next loop that will iterate through each worksheet?

 

[tsuji]

Hello, pcdaveh.

Worksheets as a collection
Dim ws As Worksheet
For Each ws in Worksheets
MsgBox (ws.Name)
Next
Or
Worksheets as an array
Dim i As Integer
For i = 1 To Worksheets.Count
MsgBox (Worksheet(i).Name)
Next

regards - tsuji

 

[lode]

A shorty

Dim i as Integer
For i = 1 To Sheets.Count
'your code
Next