Open Form If value exits iin Cell

[adamsm]

Hi,

The following code opens the user form on button click.

Sub ShowFrom()
frmCheck.Show vbModeless
End Sub

How could this code be further changed so that it wont open the user form if cell A2 is empty.

IF cell A2 is empty it would should show a message saying please fill cell A2

Any help would be appreciated.

 

[njimack]

Sub ShowFrom()
If Range("A2") = "" Then
    MsgBox "Please fill in cell A2"
Else
    frmCheck.Show vbModeless
End If

End Sub

 

[adamsm]

Thanks for the help.