A1:A10の範囲内にアクティブセルがある時に実行した場合、警告のダイアログを表示します。 Sub Sample90() If Not Intersect(Range("A1:C10"), ActiveCell) Is Nothing Then MsgBox "この範囲内では実行出来ません", vbCritical End If End Sub