Leith,

I figured it out

Set rRng = Sheet1.Range("A3")
If IsEmpty(rRng.Value) Then