Pause worksheet for 10 sconds while opening the workbook - VBA

[Admin]

Hi

May be..

Private Sub Workbook_Open()
    
    Dim wksDefault      As Worksheet
    Dim wksNext         As Worksheet
    
    Set wksDefault = Worksheets("Sheet1")
    
    Set wksNext = Worksheets("Sheet2")
    
    Application.Goto wksDefault.Cells(1)
    
    Application.Wait Now + TimeSerial(0, 0, 10)
    
    Application.Goto wksNext.Cells(1)
    
End Sub