auto open ilgili yardım edebilirmisiniz

Aşağıdaki kod ile sekmeler arası otomatik olarak 30 saniyede bir geçiş yapabiliyorum
sorun ise bu kodu yazdığım Excel sayfası ile birlikte açtığım diğer Excel sayfalarında da aynı şeyin olması bunu nasıl engelliyebilirim yardımcı olabilirmisiniz



Option Explicit

Sub Auto_Open()
DoEvents
Application.OnTime Now + TimeValue("00:00:30"), "SAYFA_AÇ"
End Sub

Sub SAYFA_AÇ()
DoEvents
If ActiveSheet.Index < ThisWorkbook.Worksheets.Count Then
ActiveSheet.Next.Select
Else
Sheets(1).Select
End If
Auto_Open
End Sub

Sanırım anlatımda yanlışlık var.
Başka çalışma kitabını da açtığınızda yani bu prosedürün çalıştığını söylemek istediğinizi tahmin ediyorum.

Küçük bir revizyonla nu halledilir:

Sub Auto_Open()

    DoEvents

    Application.OnTime Now + TimeValue("00:00:05"), "SAYFA_AÇ"

End Sub



Sub SAYFA_AÇ()

    DoEvents

    If ActiveWorkbook.Name <> ThisWorkbook.Name Then End

    With ThisWorkbook

        If .ActiveSheet.Index < .Worksheets.Count Then

            .ActiveSheet.Next.Select

        Else

            .Sheets(1).Select

        End If

        Auto_Open

    End With

End Sub

Başka çalışma kitabına geçip tekrar geri geldiğinizde kodların çalışması için de alttaki kodları ilgili çalışma kitabının Thisworkbook VDE sayfasına yapıştırın:

Private Sub Workbook_Activate()

    Auto_Open

End Sub

teşekkürler hocam denedim oldu çalışıyor emeğine sağlık