How do make a macro activate the next sheet?

[pauloreiss]

I have a macro that i want to run in many files that have the same
structure but diferent number of sheets. I can only change sheets by
writing:

Sheets("Sheet1").Activate

I would like to know if there is a command that would work, something
like:

ActiveSheet.Activatenext (I tried this and didn't work)

Can someone tell me how to do this?

 

[Bob Phillips]

Almost got it.

activesheet.next.activate

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Norman Jones]

Hi Paul,

Try:

'=============>>
Public Sub Tester01()
Sub TestA()
With ActiveSheet
If .Index < Sheets.Count Then
.Next.Activate
Else
Sheets(1).Activate
End If
End With
End Sub
'<<=============