Pop up code not working

[Ian Manning]

Hiya,

Wonder if anyone here could help me with a probelm I have getting a
calender control to pop up when a user clicks a cell. I have this
working in a test spreadsheet, but I can't get it to work as part of a
separate SS.

On the test spreadsheet I have used the following code in the worksheet
to pop up the active X control when the user clicks on cell B16:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$16" Then
Call OpenCalendar
End If
End Sub

Where OpenCalender is a function defined in the same module that has the
routing:

Sub OpenCalendar()
frmCalender.Show
End Sub

My problem is that although I can get the control to pop up in a test
spreadsheet, once I add it to my main spreadsheet it doesn't work.

Running the OpenCalendar function via the macros menu works fine. It
just doesn't appear when clicking cells.

THanks in advance if anyone can suggest anything.

 

[Tom Ogilvy]

did you export the userform from your test workbook and import it into your
project (or otherwise create it there). Events are enabled in your
project workbook?

Obviously, if the code is working in one location, there wouldn't be much to
comment on concerning the code you show.

 

[Ian Manning]

did you export the userform from your test workbook and import it into your
project (or otherwise create it there). Events are enabled in your
project workbook?

Obviously, if the code is working in one location, there wouldn't be much to
comment on concerning the code you show.

Thanks for replying.

I've tried both ways: exporting and creating it within it.

Using Application.EnableEvents = False I can at least now stop it from
working in my test workbook, however there is no =False statement in my
project. Is there anywhere else this setting can be found?

 

[Ian Manning]

Thanks for replying.

I've tried both ways: exporting and creating it within it.

Using Application.EnableEvents = False I can at least now stop it from
working in my test workbook, however there is no =False statement in my
project. Is there anywhere else this setting can be found?

Ahhh, I've worked out what is causing it: the cell referenced is
actually a merged cell....