Try
If Len(Trim(namecl)) = 0 Then
"bobwilson" wrote:
This should be a simple if Statement. I want the below error message to
come up if cell A1 is blank. Otherwise(Else) populate data (I have
excelued the balance of the code.)
namecl = ActiveSheet.Range("A1")
With ActiveSheet
If namecl = "" Then
msg = "Blank Entry. Cannot add Blank contact."
MsgBox msg, vbCritical, "Add New Contact"
Else
--
bobwilson
------------------------------------------------------------------------
bobwilson's Profile: http://www.excelforum.com/member.php...o&userid=33046
View this thread: http://www.excelforum.com/showthread...hreadid=529682