View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
The Narcissist The Narcissist is offline
external usenet poster
 
Posts: 18
Default Trying to call a macro on selection of a cell in a range

Got a solution to this through another forum. This is what was suggested and
worked.

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





"The Narcissist" wrote:

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