Messagebox to run macro not working

Nikeyg

New Member
Joined
Jan 22, 2018
Messages
13
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
Code:
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
Code:
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
 

Some videos you may like

Excel Facts

When they said...
When they said you are going to "Excel at life", they meant you "will be doing Excel your whole life".

KOKOSEK

Board Regular
Joined
Apr 8, 2019
Messages
226
Office Version
365, 2013
Platform
Windows
You declared variable 'Answer' and later on you deal with 'ans'...

Try like this:


Code:
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
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,434
Messages
5,511,327
Members
408,842
Latest member
Amuserad

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top