Call Calendar

[Guest]

Hi

I am using the calendar code from Ron de Bruin's site put in PERSONAL.XLS:
http://www.rondebruin.nl/calendar.htm

I want to call OpenCalender from Sheet2:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Row > 4 And Target.Column = 6 Then
Cancel = True
Call OpenCalendar
End If
End Sub

But I get the errormessage "The macro 'test.xls!Module1.OpenCalendar' cannot
be found"

I seems that it can't "see" the macro in PERSONAL.XLS - any solutions, what
am I doing wrong.

/Steen

 

[Chip Pearson]

I don't see anything on Ron's page that references the function
"OpenCalendar". Post THAT code and we'll see what the problem is.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

 

[Guest]

Hi Chip

Thaks for replying. The following code is in Macro1 under PERSONAL.XLS

Option Explicit

Sub OpenCalendar()
' Displays the UserForm and calendar
' Shortcuts should be made to this procedure
frmCalendar.Show
End Sub

Does that give you a clue?

 

[Ron de Bruin]

Ahhhaa

You use this example
http://www.fontstuff.com/vba/vbatut07.htm

Read the page good and you find your answer

 

[Guest]

Hi Chip

I have copied the code from PERSONAL.XLS to the Module/sheet where I use it
and that works. Thans for your help.

 

[Dave Peterson]

Instead of this:
Call OpenCalendar
could you have used:
Application.run "Personal.xls!OpenCalendar"

 

[Guest]

Chip,

Please email me.

Sincerely,

Christmas May

 

[Tom Ogilvy]

right at the bottom of the page

http://www.cpearson.com/

is Chip's email address.