I have a macro in which I want to include a code to halt or freeze the steps for 15 seconds then continue without any user intervention. Excel help wasn't that helpful. This is as far as I have made it:
Sub Viewit()
'
' Macro
'
'
Application.ScreenUpdating = False
Sheets("View").Visible = True
Sheets(Array("FinalReport", "Alloc Rates", "Variances", "Misc")).Select
Sheets("FinalReport").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("View").Select
ActiveWindow.Zoom = 200
Application.ScreenUpdating = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
Application.ScreenUpdating = True
'I want to pause the script for 15 seconds at this point
Application.ScreenUpdating = False
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
End With
Application.ScreenUpdating = True
ActiveWindow.Zoom = 100
Sheets("View").Visible = True
Sheets("Misc").Visible = True
Sheets("Variances").Visible = True
Sheets("Alloc Rates").Visible = True
Sheets("FinalReport").Visible = True
Sheets("View").Select
ActiveWindow.SelectedSheets.Visible = False
Application.Goto Reference:="Go2BUTTONS"
Application.ScreenUpdating = True
End Sub
Sub Viewit()
'
' Macro
'
'
Application.ScreenUpdating = False
Sheets("View").Visible = True
Sheets(Array("FinalReport", "Alloc Rates", "Variances", "Misc")).Select
Sheets("FinalReport").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("View").Select
ActiveWindow.Zoom = 200
Application.ScreenUpdating = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
Application.ScreenUpdating = True
'I want to pause the script for 15 seconds at this point
Application.ScreenUpdating = False
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
End With
Application.ScreenUpdating = True
ActiveWindow.Zoom = 100
Sheets("View").Visible = True
Sheets("Misc").Visible = True
Sheets("Variances").Visible = True
Sheets("Alloc Rates").Visible = True
Sheets("FinalReport").Visible = True
Sheets("View").Select
ActiveWindow.SelectedSheets.Visible = False
Application.Goto Reference:="Go2BUTTONS"
Application.ScreenUpdating = True
End Sub