If Range("A1").Fomula = "" Then