Sub moveSheetToSheet()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Sheets
MsgBox ws.Name
Next
End Sub

"Bob A" wrote:

I need to write code that automatically moves from sheet to sheet and gathers
data. I have no problem gathering the data on the sheet but I don't know how
to move the pointer to the next sheet in the workbook.
I would really appreciate any help you can give.
--
Bob A