Wow! You guys are the Excel gods of the planet. Thanks so much!
--
Kent Lysell
Financial Consultant
Ottawa, Ontario
W: 613.943.9098


"Jay" wrote:

Hi Kent -

See comment in code below for labeling options.

Sub klysellDoubleMonth()
With Range("B16:B68")
.NumberFormat = "@"
.HorizontalAlignment = xlCenter
End With
startDate = Range("B12").Value
endDate = Range("C12").Value
nextDate = startDate: i = 0

Do
nextDate = DateSerial(Year(startDate), Month(startDate) + i, Day(startDate))
'Next statement: change True to False for non-abbreviated month name
dateLabel = MonthName(Month(nextDate), True) & _
"-" & Right(Year(nextDate), 2)
Range("B16:B17").Offset(i * 2, 0) = dateLabel
i = i + 1
Loop Until Month(nextDate) = Month(endDate) And _
Year(nextDate) = Year(endDate)

Range(Range("B16").End(xlDown)(2, 1), _
Range("B68")).EntireRow.Hidden = True
End Sub

--
Jay


"klysell" wrote:

Hi,

I have a "start date" in $B$12 and an "end date" in $C$12. Starting in
$B$16, I need to have each month between these two dates populated. It would
be nice if there were duplicates of each month in this column. For example,
if $B$12 was April 1, 2006 and $C$12 was March 31, 2007, a procedure would
place "April-06" in $B$16 and $B$17. "May-06" would be placed in $B$18 and
$B$19, "June-06" would be placed in $B$20 and $B$21, and so on until the last
month of "March-07" would be placed in the final two cells in column B. I
have 53 rows formatted to accept a list of months, so I would like the
remainding rows after the last entered month ("March-07" in the example), to
be hidden.

Is this an easy procedure to code? As usual, I would be very appreciable if
someone would be able to help me on this problem.

Thanks in advance!
Kent.
--
Kent Lysell
Financial Consultant
Ottawa, Ontario
W: 613.943.9098