Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim VRange As Range Set VRange = Range("InputRange") If Union(Target, VRange).Address = VRange.Address Then Msgbox "The changed cell is in the input range." End if End Sub