You don't say what you want to do when you find an empty cell but this may
get you started

Sub sonic()
lastrow = Cells(Rows.Count, "D").End(xlUp).Row
Set myrange = Range("D1:D" & lastrow)
For Each c In myrange
If IsEmpty(c) Then
MsgBox c.Address & " Is empty"
End If
Next
End Sub

Mike

"osinglad" wrote:

I got a sheet where i have to fint cells i column d that is empety. When i
try vith null, 0, "" not working. Its some strange format that ia dont know.
If i try to delite all formats its no help. Anyone who has a advise?