Private Sub Worksheet_Change(ByVal Target As Range) If IsEmpty(Range("B5")) Then MsgBox "Cell B5 is not supposed to be empty..." Exit Sub End If ....continue your macro
If you've been given good help, use the icon in that post to give reputation feedback, it is appreciated. Always put your code between [code] and [/code] tags.