Trying to create err msg if cell is left blank

C

CarTel Boy

Tried to use validation to program a cell to give error msg if left blank
but, it wont. what other options are their for cell programming.
 
D

David

Hi,
Not an error message, but

Sub BlankCell()
' BlankCell Macro
If ActiveCell.Value = "" Then
Dim Msg, Title, Response
Msg = "Cell is blank"
Title = "Blank Cell"
Style = vbCritical
Msg = "Cell is blank ?"
Style = vbCritical
Response = MsgBox(Msg, Style, Title)
End If
End Sub
Hope this is close enough to help
 
T

Tim

conditional formatting? you could set the relevant empty cells to a colour
(eg, red) if blank
 
Top