Please help with macro options

[Savuti]

Hello all, this is the base code I have so far, it is not correct - I need the main macro to run if the value in "E14" is = 0.
If the value is 1 - the message should say "Denied" and ExitSub End If
If the value is 2 - the message should say "Okay" and Exit Sub End If

Thanks for your help

If Range("E14").Value = 0 Then
    Else
    MsgBox "Okay"
        Exit Sub
  End If

 

[repairman615]

Hello,

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Ateam()<br><br>    <SPAN style="color:#00007F">Select</SPAN> <SPAN style="color:#00007F">Case</SPAN> Range("E14").Value<br>        <SPAN style="color:#00007F">Case</SPAN> 0<br>            <SPAN style="color:#007F00">'''Do stuff here</SPAN><br>        <SPAN style="color:#00007F">Case</SPAN> 1<br>            MsgBox "Denied"<br>        <SPAN style="color:#00007F">Case</SPAN> 2<br>            MsgBox "Okay"<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Select</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Savuti]

Thank you repairman, code works great.