Perhaps just this
Code:
--------------------
Sub Check_click()
If Range("A1").Value < "" And Range("B1").Value = "" Then
MsgBox "Please enter a code in the 1st box, under code in Special Purpose Deposits. Click Ok and type General or Building!", 16, "message"
Range("B1").Select
Else
MsgBox "Successful!", 16, "message"
End if
End Sub
--------------------
--
Norie
------------------------------------------------------------------------
Norie's Profile:
http://www.excelforum.com/member.php...o&userid=19362
View this thread:
http://www.excelforum.com/showthread...hreadid=374525