If - Else VBA Code Not Working Why?

[SallyMcK]

I cannot get the macro to work as I want. I cannot get the MsgBox "Check Columns H and AA before Saving and Sending" to come up if No is Selected if I use the code below.

Code Showing No MsgBox

Sub SavecheckCL()
'
' SavecheckCL Macro
'


    ActiveWorkbook.Save
    
 Dim AnswerCL As vbmsgboxresult
    
 AnswerCL = MsgBox("Have you checked Supplier Item Number and National Ranging?", vbYesNo, "FINAL CHECK")
 If Answer = vbYes Then
 ActiveWorkbook.Save
 ElseIf Answer = vbNo Then
   MsgBox "Check Columns H and AA before Saving and Sending"
   ActiveWorkbook.Save
 End If


End Sub

Otherwise if I use the following code it displays the msgbox whether I select Yes or No. Where am I going wrong?

Code Showing MsgBox for Both Yes and No
Else
MsgBox "Check Columns H and AA before Saving and Sending"
ActiveWorkbook.Save

 

[Norie]

Try this.

If AnswerCL = vbYes Then
    ActiveWorkbook.Save
ElseIf AnswerCL = vbNo Then
    MsgBox "Check Columns H and AA before Saving and Sending"
    ActiveWorkbook.Save
End If

 

[jproffer]

You "Dim"ed "AnswerCL" and you're using "Answer".

Oops, too slow

That's what I get for getting up in the middle of posting.

 

[SallyMcK]

Works beautifully. Thank you so much for your help!

 

[SallyMcK]

Works beautifully. Thank you so much for your help!