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