After sharing workbook VB code stops working. Runtime Error 1004
Hello to all,
I have a small simple script that works fine until I share the
workbook. It is at that point when a cell is clicked on in the sheet
that the following msg is displayed.
Run Time Error 1004 Unable to set the left property of the oleobject
class
If I unshare the workbook it goes away.
Here's the code
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("c3:c20,g3:g20"), 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
Help please
|