Encountered another Check Cell Problem
 

Sub Check_click()

If Range("A1").Value < "" And Range("B1").Value = "" Then
MsgBox "You must select a code in Special Purpose Deposits. Click the
arrow to select General or Building!", 16, "message"
Range("B1").Select
elseIf Range("A2").Value < "" And Range("B2").Value = "" Then
MsgBox "You must select a code in Special Purpose Deposits. Click the
arrow to select General or Building!", 16, "message"
Range("B2").Select
Else
MsgBox "Check Sheet is Successful. Go to step 5!", 64, "message"
End If

End Sub


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=374563