Bir Sonraki Sayfayı Seç - Microsoft Excel

Her çalıştırıldığında bir sonraki sayfayı seçen, eğer gelinen sayfa son sayfaysa en baştaki sayfaya geri dönen VBA kodu alternatifidir.

Option Explicit

Sub BirSonrakiSayfayiSec()
    If ActiveSheet.Index = Worksheets.Count Then
        Worksheets(1).Select
    Else
        Worksheets(ActiveSheet.Index + 1).Select
    End If
End Sub