Next Worksheet in code

[Gary S]

Basic vba question.

How do I go to the next worksheet using code?

 

[Smallweed]

Worksheets(ActiveSheet.Index+1).Activate

 

[Ardus Petus]

Sub ActivateNextSheet()
Dim index As Integer
index = ActiveSheet.index
If index < Sheets.Count Then
Sheets(index + 1).Activate
Else
Sheets(1).Activate
End If
End Sub


HTH

 

[Ron de Bruin]

Or

ActiveSheet.Next.Select

Be sure that the last sheet is not active when you run the code

 

[Rick Rothstein \(MVP - VB\)]

Your subroutine can be reduced to this one-liner...

Sub ActivateNextSheet()
Sheets(1 + (Sheets.Count + ActiveSheet.Index) Mod 3).Activate
End Sub

Rick

Sub ActivateNextSheet()
Dim index As Integer
index = ActiveSheet.index
If index < Sheets.Count Then
Sheets(index + 1).Activate
Else
Sheets(1).Activate
End If
End Sub


HTH

 

[Rick Rothstein \(MVP - VB\)]

Or this (active sheet wraps at last sheet back to first sheet)...

Sheets(1 + (Sheets.Count + ActiveSheet.Index) Mod 3).Select

Rick