Merging cells with VBA

[j_Southern]

I am using the following code to enter month names at given places on a work sheet.

Please Login or Register  to view this content.

MonthAr is an array carrying the month names as a single column.
The code is meant to give every 20th column, starting at J the name of a month taken from the array. Cells J3 andK3 are merged and the month name is centralized
The merging is supposed to happen with every 20th pair.
The actual result is a bit different.
DECEMBER is dealt with as expected all the other months are placed in the second cell (ie 20 cols from K not J). The pair of cells is not merged. The name is centred in its cell not its merged pair.
Where am I going wrong?
John

[mjr veverka]

Maybe like this ?

Please Login or Register  to view this content.

[Rick Rothstein]

I am using the following code to enter month names at given places on a work sheet.

Please Login or Register  to view this content.

Maybe like this ?

Please Login or Register  to view this content.

Here is another way to assign the month names to the MonthAr variable that does not require you to maintain a list the month names on any of your worksheets (note that the MontAr variable must be declared as a Variant variable without any parentheses attached to the variable name in your Dim statement)...

Please Login or Register  to view this content.

At this point the MonthAr array is one-based, one-dimensional array. You would iterate it like this... MonthAr(1), MonthAr(2), MonthAr(3), etc.

[j_Southern]

porucha vevrku and Rick Rothstein,
Thank you both for your suggestions. Both have been incorporated in my project and both are working perfectly. I just had to change the increment of b to 20.
I cant mark the thread as solved. Has the method changed?
John