Private Sub Worksheet_Change(ByVal Target As Range) 'Module1内ではなく、上の「Sheet1」内に記述します If Range("A1") <> "" Then MsgBox "A1に入力されました" End If End Sub