msgbox Query

[shaylynch]

hi All,
i have written a macro to update another sheet with certain values, however i am looking for code that if one particular cell is equal to "True" that a MsgBox will ask the question "Are you sure you to Close Project" and if yes that the macro will continue

thanks in advance

Shay

 

[BrianB]

Something like this :-

Dim rsp As String
If Worksheets("Sheet1").Range("A1").Value = "True" Then
    rsp = MsgBox("Are you sure", vbYesNo)
    If rsp = vbNo Then
        Exit Sub
    End If
End If
'- continue

 

[shaylynch]

hi Brian,
thanks for your reply,
the code works fine, but the only issue i have now is that, this subroutine isn't always used and when that no isn't there, the macro, outside of this sub doesn't seem to work now.

Shay

 

[BrianB]

You will need to change it to do what you need.
I have put Exit Sub which ends the macro.

 

[shaylynch]

thanks Brian,
i figured it out, and got it running,

Shay