I am getting this error message for the below VBA
Sub RunAllMacros()
Procedure1
Procedure2
Procedure3
Procedure4
End Sub
Sub Procedure1()
Sub Recalc()
If Not Range("D1").Value = "Stop" Then
Range("A1").Value = Format(Now, "dd-mmm-yy")
Range("A2").Value = Format(Time, "hh:mm:ss AM/PM")
Call SetTime
End Sub
Sub Procedure2()
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:06")
Application.OnTime SchedRecalc, "Recalc"
End Sub
Sub Procedure3()
Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub
Sub Procedure4()
Sub Settle()
If WorksheetFunction.CountIf(Columns("G"), "Settle") > 0 Then Exit Sub
End Sub
Bookmarks