I am designing a template where for certain cells, an ActiveX Calendar
Control will appear if the cells are activated.

I have designed the calendar form but don't know how to call the form
when the cells are activated. Pls help or direct me to any available
internet resource.

regards

You could use the Worksheet_SelectionChange() event, like so

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
UserForm1.Show
End If
End Sub

This shows a UserForm called UserForm1 when any of the cells A1:A10 on the
worksheet is selected. (It needs more refinement but will hopefully set you
on your way)

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"tang lk" wrote in message
om...
I am designing a template where for certain cells, an ActiveX Calendar
Control will appear if the cells are activated.

I have designed the calendar form but don't know how to call the form
when the cells are activated. Pls help or direct me to any available
internet resource.

regards

Thanks a lot.

Nick Hodge wrote:
You could use the Worksheet_SelectionChange() event, like so

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
UserForm1.Show
End If
End Sub

This shows a UserForm called UserForm1 when any of the cells A1:A10
on the
worksheet is selected. (It needs more refinement but will hopefully
set you
on your way)

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"tang lk" wrote in message
om...
I am designing a template where for certain cells, an ActiveX
Calendar
Control will appear if the cells are activated.

I have designed the calendar form but don't know how to call the
form
when the cells are activated. Pls help or direct me to any
available
internet resource.

regards