If Range(“A1″).Value = “” Then MsgBox “空白です”