You can use a For/Each loop

Dim WS As Worksheet

For Each WS in ThisWorkbook.Worksheets
Debug.Print WS.Name
Next WS

or, since worksheets also have and Index property, you can write

With ThisWorkbook
For S = 1 To .Worksheets.Count
Debug.Print .Worksheets(S).Name
Next S
End With

or
On Tue, 15 Mar 2005 19:15:32 -0800, "Nigel Bennett"
wrote:

Is there any way to scroll thru all the spreadsheets in a
workbook without referencing them by name