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