One way:

If IsEmpty(Range("A1").Value) Then _
MsgBox "Cell A1 is empty."

In article ,
ingalla wrote:

I need to ckeck if a cell contains a value or if it is empty. If there is
noting in the cell then a msg box needs to be displayed.