run time error with calendar

[ceplane]

I am using excel 2000. I have a userform and is using acxcalendar lik
a text box to aid the user on dates.
While running I get an error 438 message. I don't understand why.
can use some advice from the experts.
Thank you.

Private Sub CompeButton_Click()
Sheet2.Activate
Range("K3").Activate
ActiveCell.Offset(0, 0).Value = "23"

Range("G3").Activate
ActiveCell.Offset(0, 0).Value = Calendar1.Value
ActiveCell.Offset(0, 1).Value = Calendar2.Value
ActiveCell.Offset(0, 2).Value = Starttime.Value
ActiveCell.Offset(0, 3).Value = Endtime.Value
ActiveCell.Offset(0, 5).Value = Comment.Value


Set rng = Range("A3:E366")
For Each rcel In rng
If rcel.Value > 1 Then
rcel.Formula = rcel.Formula
Else
rcel.Formula = rcel.Value
End If
Next rce

 

[Nick Hodge]

I suspect an error on the .value properties of the calendar object. Check
that these exist for the control you are using.

It might be more like????

Calendar1.StartTime

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)

 

[ceplane]

Nick,
I've tried using Calendar1.StartTime in the formula. I get the erro
on that statement too. ?????? I'm missing the connection somewhere

 

[Nick Hodge]

It is still difficult to know without knowing the exact control you are
using as there are many, all with different properties, methods, etc.

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)