Messagebox to run macro not working

[Nikeyg]

I'm trying to use an Ok/Cancel Message box to run a macro, however, it's just not working

If I use the below code regardless of if Ok or Cancel is pushed the macro will run

Sub Button()'
' Button Macro
'
Dim Answer As String


MsgBox "WARNING: The following process will clear all of today's submitted trades! Do you wish to proceed?", vbOKCancel + vbQuestion


Run "EODBACKUP"


End Sub

However, if I use the below regardless of if Ok or Cancel is pushed the macro doesn't run at all

Sub Button()'
' Button Macro
'
Dim Answer As String


MsgBox "WARNING: The following process will clear all of today's submitted trades! Do you wish to proceed?", vbOKCancel + vbQuestion


If ans = vbOK Then


Run "EODBACKUP"


End If


End Sub

Can someone please advise me what I'm doing wrong here?

Thanks in advance

 

[KOKOSEK]

You declared variable 'Answer' and later on you deal with 'ans'...

Try like this:

Sub Button() '
Dim answer As String
answer = MsgBox("WARNING: The following process will clear all of today's submitted trades! Do you wish to proceed?", vbOKCancel + vbQuestion)
If answer = vbOK Then
    MsgBox ("Macro will run.")
    'Call YOUR_MACRO
End If
End Sub

 

[Nikeyg]

That's brilliant Kokosek!
Thanks so much.