Good afternoon scara

Something like :
If Range("A1").Value = "" Then
MsgBox "A1 can't be blank"
Exit Sub
End If
Stick the rest of the macro after the End If line.

HTH

DominicB