Trying to call a amcro on selection of a cell in a range

[narcissist]

Hi,This might come across as a novice question, as I am in fact, a novice at vba. I'm trying to call a macro if a specific cell in a range is selected. This is what I've coded.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Start_Range As Range
Set Start_Range = Range("C2:C1001")
Dim End_Range As Range
Set End_Range = Range("D2:D1001")
If Target.Range = Start_Range or Target.Range = End_Range Then
frmCalendar.Show
End If
End Sub


However, I'm getting a Compile error stating Argument not optional. Can anyone please guide me to code this correctly?

Thanks in advance.

Sam

[Kenneth Hobs]

Maybe:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim my_Range As Range
Set my_Range = Intersect(Target, Range("C2:C1001,D2:D1001"))
If not my_Range Is Nothing Then frmCalendar.Show
End Sub

[narcissist]

Thank you very much. It worked. :)