TryIt

Option Explicit

Public Sub TestMe()

    Dim r As Range
    Range("A1") = 50
    Range("A2") = vbNullString

    For Each r In Range("A1:A10")
        Debug.Print IsEmpty(r.Value)
    Next

End Sub