I have a workbook with different sheets each sheet has its own calendar in
Ce11 A1:A2500

I set the calendar up and copy my sub into VBA and it works fine but after i
exit the workbook then go back in the calendars are all different sizes some
you cant even see tha dates.

is there a way I can prevent this from happening so they all saty the same
size and readable

Cheers in advance

You really have 2500 separate calendar controls on each sheet?

Why not have just one control which you call out for the cell you select on
any sheet?

Ron de Bruin shows you how at this site. You will have to edit the range
upon which it operates. Currently set at A1:A20

http://www.rondebruin.nl/calendar.htm

To have the code for all worksheet do not place the
worksheet_selectionchange code in each sheet.

Place it in Thisworkbook module and change the event type.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)


Gord Dibben MS Excel MVP

On Fri, 25 Sep 2009 04:46:01 -0700, cufc1210
wrote:

I have a workbook with different sheets each sheet has its own calendar in
Ce11 A1:A2500

I set the calendar up and copy my sub into VBA and it works fine but after i
exit the workbook then go back in the calendars are all different sizes some
you cant even see tha dates.

is there a way I can prevent this from happening so they all saty the same
size and readable

Cheers in advance

Sorry Gordon

I just realised that i didnt word that very well, i do only have one
calender control per sheet i meant when i click on cells A1:A2500 the
calensdar appears thanks for the help anyways

"Gord Dibben" wrote:

You really have 2500 separate calendar controls on each sheet?

Why not have just one control which you call out for the cell you select on
any sheet?

Ron de Bruin shows you how at this site. You will have to edit the range
upon which it operates. Currently set at A1:A20

http://www.rondebruin.nl/calendar.htm

To have the code for all worksheet do not place the
worksheet_selectionchange code in each sheet.

Place it in Thisworkbook module and change the event type.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)


Gord Dibben MS Excel MVP

On Fri, 25 Sep 2009 04:46:01 -0700, cufc1210
wrote:

I have a workbook with different sheets each sheet has its own calendar in
Ce11 A1:A2500

I set the calendar up and copy my sub into VBA and it works fine but after i
exit the workbook then go back in the calendars are all different sizes some
you cant even see tha dates.

is there a way I can prevent this from happening so they all saty the same
size and readable

Cheers in advance

Just change Ron's code range to A1:A2500


Gord

On Wed, 30 Sep 2009 05:43:01 -0700, cufc1210
wrote:

Sorry Gordon

I just realised that i didnt word that very well, i do only have one
calender control per sheet i meant when i click on cells A1:A2500 the
calensdar appears thanks for the help anyways

"Gord Dibben" wrote:

You really have 2500 separate calendar controls on each sheet?

Why not have just one control which you call out for the cell you select on
any sheet?

Ron de Bruin shows you how at this site. You will have to edit the range
upon which it operates. Currently set at A1:A20

http://www.rondebruin.nl/calendar.htm

To have the code for all worksheet do not place the
worksheet_selectionchange code in each sheet.

Place it in Thisworkbook module and change the event type.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)


Gord Dibben MS Excel MVP

On Fri, 25 Sep 2009 04:46:01 -0700, cufc1210
wrote:

I have a workbook with different sheets each sheet has its own calendar in
Ce11 A1:A2500

I set the calendar up and copy my sub into VBA and it works fine but after i
exit the workbook then go back in the calendars are all different sizes some
you cant even see tha dates.

is there a way I can prevent this from happening so they all saty the same
size and readable

Cheers in advance