I am getting #NAME? error. I am not sure I am reading your formula
correctley. I have tried entering this several differant ways, with no luck.

"Gary''s Student" wrote:

Try:

Sub stew()
For Each r In ActiveSheet.UsedRange
If IsEmpty(r) Then
r.Value = "xx"
End If
Next
End Sub

--
Gary''s Student - gsnu200722