Try something like
Worksheets("Sheet1").OLEObjects("Calendar1").Visible = True
' OR
Worksheets("Sheet1").OLEObjects("Calendar1").Visible = False
--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)
"Matts" <(E-Mail Removed)> wrote in message
news:294E6A15-D5AD-45C3-9C55-(E-Mail Removed)...
>I have inserted a 'embedded' calendar control by going into 'more
>controls'
> & choosing Calendar control 9.0.
> It works fine & I've even got it linked to a cell to show the dates
> chosen.
>
> I would want this Calendar popping up only when a command button is
> clicked.
> It just doesnt seem to work as there's no name for this calendar.
>
> I'm quite familiar with how this works with user forms but not with this
> embedded image. The name of the whole calendar appears as
> =EMBED("MSCAL.Calendar.7","")
>
> I usually use (formxxxx.show) to opening a user form, but this doesn’t
> work in this situation with an embedded image.
>
> Appreciate any advice
>
> Thx, Matt