Thanks Dick!!!
It works great now...


-----Original Message-----
Quentin

Instead of using

If Target.Column = 3 Then

use

If Target.Address = "$A$10" Then

That way it will only work on A10 and no other cells.
Obviously change
$A$10 to whichever cell you want.

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.


"Quentin" wrote in message
...
Dick,

Could you provide the code to restrict it to a cell?

Thanks!!
Quentin

-----Original Message-----
Alan

The sheet's module is really a class module, but it's
a
special class module
because it has the sheet's events built in. It also
has
events for any
controls on the sheet built in. When you're in a
class
module, the Me
keyword refers to the class, in this case the sheet.
You could just as
easily have

ActiveCell.Value = Sheets("Sheet1").Calendar1.Value

but if you ever changed the sheet name, this line
wouldn't work. Me gives
you a way to reference the sheet regardless if you
change the name or the
position of the sheet.

In a userform's class module, Me refers to the
userform. In the
ThisWorkbook class module, Me refers to the workbook.

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"Alan" wrote in message

. com...
Dick,
Thanks for this. It workes exactly as I need.
But as a beginning coder, I don't understand what
the "Me." in
"ActiveCell.Value = Me.Calendar1.Value" is doing.
I tried changing it to something else and get an
error
message.
I get how the other code is working , but the 'Me.'
prefix has me puzzled.
Thanks.
Alan


"Dick Kusleika"
wrote in
message
...
Baboo

On the Control Toolbox, there is a Calendar
Control
that you can use to
get
almost the same thing. You can put it on the
sheet,
then use code like
this
in the sheet's module to make it "popup"

Private Sub Calendar1_Click()

ActiveCell.Value = Me.Calendar1.Value

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target
As Range)

'To limit to column C
If Target.Column = 3 Then
Me.Calendar1.Visible = True
Me.Calendar1.Top = Target.Top + Target.Height
Me.Calendar1.Left = Target.Left
Else
Me.Calendar1.Visible = False
End If

End Sub

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"Baboo" wrote in
message
news:20031015205742.04714.00001125@mb-
m17.aol.com...
is there anyway to envoke the handy calendar
popup
that is available
as a
drop
down in ms project date fields into excel for a
similar purpose?
thanks!






.



.