Run-time error 1004: Unable to set the left property of the OLEObject class

B

BrownsFan

I have popup calendar in a spreadsheet that works fine until I share the file allowing other users to access simultaneously. As soon as I share the file, the VBA code breaks producing the error in the title. I'm hoping that someone has an easy fix. Here is the code for the calender:

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
'ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If (Not Application.Intersect(Range("b4:b28,f4:f28,d32,i34"), Target) Is Nothing) Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

Thanks in advance for anyone who can assist
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Calendar Control with some VB help required 3
Applying pop up calendar to entire worksheet 3
Calendar control size trouble! 4
NumberFormat? 3
Calendar control code 4
“Calendar Control†to Insert Dates 4
pop up calender 0
Calendar Control for Protected Sheets 1

Top