Like this...
If Left(ActiveCell.Address, 2) = "$A" Then
With Calendar1
.Visible = True
.Left = ActiveCell.Left + ActiveCell.Width + 30
.Top = ActiveCell.Top - 30
End With
Else
Calendar1.Visible = False
End If
End Sub
Discussion on:
Message 2 of 4
