What is the code to move through the sheets of a workbook one by one and
after processing the last sheet, stop?

Thanks!

Steve

What is the code to move through the sheets of a workbook one
by one and after processing the last sheet, stop?

Here is one way...

Sub TestCode3()
Dim WS As Worksheet
For Each WS In Worksheets
' Your code goes here in
' place of the following
WS.Range("A1") = WS.Name
Next
End Sub


Rick

Thanks, Rick!

Steve


"Rick Rothstein (MVP - VB)" wrote in
message ...
What is the code to move through the sheets of a workbook one
by one and after processing the last sheet, stop?

Here is one way...

Sub TestCode3()
Dim WS As Worksheet
For Each WS In Worksheets
' Your code goes here in
' place of the following
WS.Range("A1") = WS.Name
Next
End Sub


Rick