Application.WorksheetFunction.CountBlank(Range("A1"))
2. if isempty([a1]) then msgbox "A1 is empty"
if iserror([a1]) then msgbox "A1 is an error marker"