Hi All,



I have a worksheet were every time a user double clicks on cell A7 a pop up
calendar appears and

the user can select a date which is them entered into cell A7. I used the
following code to do this:



Private Sub Worksheet_BeforeDoubleClick( _

ByVal target As Excel.Range, _

Cancel As Boolean)

Dim addr As String

addr = target.Address

If addr = "$A$7" Then

Call OpenCalendar

End If

End Sub



What I would like to do is to have the pop up calendar appear every time a
user double clicks in

any cell in column A starting at A7 as well as any cell in column C starting
a column C7.



Any suggestions?



Thanks,



Steve

If addr = "$A$7:$A$65536" OR addr = $C$7:$C$65536 Then
.....
Mike F

"Steve" wrote in message
news:4vWGe.69962$5V4.39740@pd7tw3no...
Hi All,



I have a worksheet were every time a user double clicks on cell A7 a pop
up calendar appears and

the user can select a date which is them entered into cell A7. I used the
following code to do this:



Private Sub Worksheet_BeforeDoubleClick( _

ByVal target As Excel.Range, _

Cancel As Boolean)

Dim addr As String

addr = target.Address

If addr = "$A$7" Then

Call OpenCalendar

End If

End Sub



What I would like to do is to have the pop up calendar appear every time a
user double clicks in

any cell in column A starting at A7 as well as any cell in column C
starting a column C7.



Any suggestions?



Thanks,



Steve

I'd use:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Excel.Range, _
Cancel As Boolean)
If Intersect(target, Me.Range("a7:a65536,c7:c65536")) Is Nothing Then
Exit Sub
End If
Call OpenCalendar
End Sub
Steve wrote:

Hi All,

I have a worksheet were every time a user double clicks on cell A7 a pop up
calendar appears and

the user can select a date which is them entered into cell A7. I used the
following code to do this:

Private Sub Worksheet_BeforeDoubleClick( _

ByVal target As Excel.Range, _

Cancel As Boolean)

Dim addr As String

addr = target.Address

If addr = "$A$7" Then

Call OpenCalendar

End If

End Sub

What I would like to do is to have the pop up calendar appear every time a
user double clicks in

any cell in column A starting at A7 as well as any cell in column C starting
a column C7.

Any suggestions?

Thanks,

Steve

--

Dave Peterson

OR:

Private Sub Worksheet_BeforeDoubleClick(ByVal target _
As Excel.Range, Cancel As Boolean)

If Not Application.Intersect(Range("A7:A65536,C7:C65536") _
, Target) Is Nothing Then

Call OpenCalendar
End If
End Sub


Mike F
"Dave Peterson" wrote in message
...
I'd use:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Excel.Range, _
Cancel As Boolean)
If Intersect(target, Me.Range("a7:a65536,c7:c65536")) Is Nothing Then
Exit Sub
End If
Call OpenCalendar
End Sub
Steve wrote:

Hi All,

I have a worksheet were every time a user double clicks on cell A7 a pop
up
calendar appears and

the user can select a date which is them entered into cell A7. I used the
following code to do this:

Private Sub Worksheet_BeforeDoubleClick( _

ByVal target As Excel.Range, _

Cancel As Boolean)

Dim addr As String

addr = target.Address

If addr = "$A$7" Then

Call OpenCalendar

End If

End Sub

What I would like to do is to have the pop up calendar appear every time
a
user double clicks in

any cell in column A starting at A7 as well as any cell in column C
starting
a column C7.

Any suggestions?

Thanks,

Steve

--

Dave Peterson

Thanks Dave and Mike for your suggestions.

It works great.

Cheers,

Steve

"Dave Peterson" wrote in message
...
I'd use:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Excel.Range, _
Cancel As Boolean)
If Intersect(target, Me.Range("a7:a65536,c7:c65536")) Is Nothing Then
Exit Sub
End If
Call OpenCalendar
End Sub
Steve wrote:

Hi All,

I have a worksheet were every time a user double clicks on cell A7 a pop
up
calendar appears and

the user can select a date which is them entered into cell A7. I used the
following code to do this:

Private Sub Worksheet_BeforeDoubleClick( _

ByVal target As Excel.Range, _

Cancel As Boolean)

Dim addr As String

addr = target.Address

If addr = "$A$7" Then

Call OpenCalendar

End If

End Sub

What I would like to do is to have the pop up calendar appear every time
a
user double clicks in

any cell in column A starting at A7 as well as any cell in column C
starting
a column C7.

Any suggestions?

Thanks,

Steve

--

Dave Peterson

I still have trouble wrapping my head around "not ... is nothing" <bg. I guess
I'm just too positive!

Dave "PollyAnna" Peterson

Mike Fogleman wrote:

OR:

Private Sub Worksheet_BeforeDoubleClick(ByVal target _
As Excel.Range, Cancel As Boolean)

If Not Application.Intersect(Range("A7:A65536,C7:C65536") _
, Target) Is Nothing Then

Call OpenCalendar
End If
End Sub

Mike F
"Dave Peterson" wrote in message
...
I'd use:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Excel.Range, _
Cancel As Boolean)
If Intersect(target, Me.Range("a7:a65536,c7:c65536")) Is Nothing Then
Exit Sub
End If
Call OpenCalendar
End Sub
Steve wrote:

Hi All,

I have a worksheet were every time a user double clicks on cell A7 a pop
up
calendar appears and

the user can select a date which is them entered into cell A7. I used the
following code to do this:

Private Sub Worksheet_BeforeDoubleClick( _

ByVal target As Excel.Range, _

Cancel As Boolean)

Dim addr As String

addr = target.Address

If addr = "$A$7" Then

Call OpenCalendar

End If

End Sub

What I would like to do is to have the pop up calendar appear every time
a
user double clicks in

any cell in column A starting at A7 as well as any cell in column C
starting
a column C7.

Any suggestions?

Thanks,

Steve

--

Dave Peterson

--

Dave Peterson