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