I have the follow code in the worksheet code to run a popup calendar.
I have another macro that clears the range of cells,
but i keep getting the below code running that prevents me clearing the range of cell contents.

How can i at the start of another macro, stop the below from running, yet still be
able to have the below to run if the cell is selected in the range NOT by the macro?


________________________________________________

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRange As Range
If Not Intersect(Target, Range("C8:R30")) Is Nothing Then
Call frmCalendar.Show
'Call Macro7
'Call Ids
'Call Names_Print
'Call Names_Frequency
'Call SentenceCase
'Call Dates
'Call Shades
End If
End Sub

_______________________________________________

Corey....

Hi Corey,

The easiest solution is to insert a test into your private sub to make
it exit sub if cell A1 = 1 for example else it will execute your code
....

HTH
Cheers
Carim

Thanks Carim,

How would i add if the ENTIRE Range of C8:R30 was selected to this code:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRange As Range
If Not Intersect(Target, Range("C8:R30")) Is Nothing Then
Call frmCalendar.Show

End If
End Sub


??
Corey....

Hi Corey,

I think I did not express myself clearly enough ...
With a test of your own ...
say if there is the number 1 in cell A1 then nothing happens,
otherwise your macro is executed ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRange As Range

If Range("A1").Value = 1 Then
Exit Sub
Else
If Not Intersect(Target, Range("C8:R30")) Is Nothing Then
Call frmCalendar.Show
End If
End If

End Sub

Hope this clarifies
Cheers
Carim

thanks again for the reply.
My problem is that the macro I am trying to run, but needs to stop this
code,
simply selects the entire range (c8:r20) and clears the cells.

As there is no actual value to enter I am a little lost to entering this
into the code???

Corey....


"Carim" wrote in message
oups.com...
Hi Corey,

I think I did not express myself clearly enough ...
With a test of your own ...
say if there is the number 1 in cell A1 then nothing happens,
otherwise your macro is executed ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRange As Range

If Range("A1").Value = 1 Then
Exit Sub
Else
If Not Intersect(Target, Range("C8:R30")) Is Nothing Then
Call frmCalendar.Show
End If
End If

End Sub

Hope this clarifies
Cheers
Carim

Sorry for miss understanding.
I have just worked out what you were saying.
I added a step so A1=1 to the code
then at the end
to CLEAR A1

to easy after all.

thanks for the assistance

Corey....
"Corey" wrote in message
...
thanks again for the reply.
My problem is that the macro I am trying to run, but needs to stop this
code,
simply selects the entire range (c8:r20) and clears the cells.

As there is no actual value to enter I am a little lost to entering this
into the code???

Corey....


"Carim" wrote in message
oups.com...
Hi Corey,

I think I did not express myself clearly enough ...
With a test of your own ...
say if there is the number 1 in cell A1 then nothing happens,
otherwise your macro is executed ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRange As Range

If Range("A1").Value = 1 Then
Exit Sub
Else
If Not Intersect(Target, Range("C8:R30")) Is Nothing Then
Call frmCalendar.Show
End If
End If

End Sub

Hope this clarifies
Cheers
Carim