Worksheet_Change Event Monitoring a Range

[ljrezn]

I have been able to successfully trigger the Worksheet_Change Event by monitoring one target cell, but how would I write the code if I want the Event to run anytime a cell in a given range is changed?

This is what i tried, but I get an error that says, "Compile Error: Argument not Optional"

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
On Error GoTo Choice
 
Choice: Application.EnableEvents = False
    On Error GoTo Reenable
        If Target.Range = "B16:G49" Then
             Call Macro1
        End If
Reenable: Application.EnableEvents = True
End Sub

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo Reenable
Application.EnableEvents = False
On Error GoTo Reenable
If Not Intersect(Target, Range("B16:G49")) Is Nothing Then
     Call Macro1
End If
Reenable:
Application.EnableEvents = True
End Sub

 

[ljrezn]

Works great! Thank you!

 

[VoG]

You are welcome. Actually line 2 is unnecessary, it should be

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Reenable
Application.EnableEvents = False
On Error GoTo Reenable
If Not Intersect(Target, Range("B16:G49")) Is Nothing Then
     Call Macro1
End If
Reenable:
Application.EnableEvents = True
End Sub

 

[ljrezn]

Thanks. Ya I caught that. For some reason though my version of excel the events are always false, so it errors and the code never runs. So I added the additional statement in my original version up top and now it runs everytime consistently.

Thanks again.