A1のセルに入力されているのが、「=」で始まる数式か数値かを判別します。 Sub Sample64() If Range("A1").HasFormula = True Then MsgBox "セルに数式が入力されています。" End If End Sub