Question Box only once in a looping Macro?

[Bret1]

Is there a way to make the Question box appear only once? Macro has Auto-saving and auto-looping functions...

Sub New_Copy_Over_Both_Columns()
'
 If MsgBox("WARNING: Auto-Save is Activated! Do you want to continue?", 36, "Confirm") = vbNo Then Exit Sub
    
RunTimer = Now + TimeValue("00:05:00")

Application.OnTime RunTimer, "New_Copy_Over_Both_Columns"

 

[DanteAmor]

Try this:

Dim BoxOnce As Boolean      'At the beginning of all your code

Sub New_Copy_Over_Both_Columns()
  Dim RunTimer As Double
  If BoxOnce = False Then
    If MsgBox("WARNING: Auto-Save is Activated! Do you want to continue?", 36, "Confirm") = vbNo Then Exit Sub
    BoxOnce = True
  End If
  RunTimer = Now + TimeValue("00:05:00")
  
  Application.OnTime RunTimer, "New_Copy_Over_Both_Columns"

 

[Bret1]

Try this:

Dim BoxOnce As Boolean      'At the beginning of all your code

Sub New_Copy_Over_Both_Columns()
  Dim RunTimer As Double
  If BoxOnce = False Then
    If MsgBox("WARNING: Auto-Save is Activated! Do you want to continue?", 36, "Confirm") = vbNo Then Exit Sub
    BoxOnce = True
  End If
  RunTimer = Now + TimeValue("00:05:00")
 
  Application.OnTime RunTimer, "New_Copy_Over_Both_Columns"

That worked perfect! Thank you very much!