ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Call Calendar (https://www.excelbanter.com/excel-programming/382425-call-calendar.html)

Steen

Call Calendar
 
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

Ron de Bruin

Call Calendar
 
Hi Steen

Not possible to use this in your personal.xls(hidden workbook)

Insert the Calendar and copy the code in the sheet module of the sheet you want in the workbook you want.

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Steen" wrote in message ...
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


Steen

Call Calendar
 
Hi Thanks - it works :-)

"Ron de Bruin" wrote:

Hi Steen

Not possible to use this in your personal.xls(hidden workbook)

Insert the Calendar and copy the code in the sheet module of the sheet you want in the workbook you want.

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Steen" wrote in message ...
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




All times are GMT +1. The time now is 06:28 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com