That works
Thank You

"Gary''s Student" wrote:

Sub emptcheck()
For Each r In Selection
If IsEmpty(r) Then
Else
MsgBox ("at least on cell in this range has content")
Exit Sub
End If
Next
MsgBox ("the cells in this range are empty")
End Sub

--
Gary''s Student - gsnu200770