Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Monitoring a specific range for changes

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