How do I consolidate this? Thanks.

.Offset(1, 0).Value = "January"
.Offset(1, 1).Value = "February"
.Offset(1, 2).Value = "March"
.Offset(1, 3).Value = "April"
.Offset(1, 4).Value = "May"
.Offset(1, 5).Value = "June"
.Offset(1, 6).Value = "July"
.Offset(1, 7).Value = "August"
.Offset(1, 8).Value = "September"
.Offset(1, 9).Value = "October"
.Offset(1, 10).Value = "November"
.Offset(1, 11).Value = "December"

Try something like

Dim N As Long
For N = 0 To 11
Range("A1").Offset(1, N).Value = _
Format(DateSerial(2000, N + 1, 1), "mmmm")
Next N


Cordially,
Chip Pearson
Microsoft MVP
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Sun, 7 Dec 2008 17:26:03 -0800, Exceller
<(E-Mail Removed)> wrote:

> How do I consolidate this? Thanks.
>
> .Offset(1, 0).Value = "January"
> .Offset(1, 1).Value = "February"
> .Offset(1, 2).Value = "March"
> .Offset(1, 3).Value = "April"
> .Offset(1, 4).Value = "May"
> .Offset(1, 5).Value = "June"
> .Offset(1, 6).Value = "July"
> .Offset(1, 7).Value = "August"
> .Offset(1, 8).Value = "September"
> .Offset(1, 9).Value = "October"
> .Offset(1, 10).Value = "November"
> .Offset(1, 11).Value = "December"

Thanks, Chip. I appreciate your help.


"Chip Pearson" wrote:

> Try something like
>
> Dim N As Long
> For N = 0 To 11
> Range("A1").Offset(1, N).Value = _
> Format(DateSerial(2000, N + 1, 1), "mmmm")
> Next N
>
>
> Cordially,
> Chip Pearson
> Microsoft MVP
> Excel Product Group
> Pearson Software Consulting, LLC
> www.cpearson.com
> (email on web site)
>
>
> On Sun, 7 Dec 2008 17:26:03 -0800, Exceller
> <(E-Mail Removed)> wrote:
>
> > How do I consolidate this? Thanks.
> >
> > .Offset(1, 0).Value = "January"
> > .Offset(1, 1).Value = "February"
> > .Offset(1, 2).Value = "March"
> > .Offset(1, 3).Value = "April"
> > .Offset(1, 4).Value = "May"
> > .Offset(1, 5).Value = "June"
> > .Offset(1, 6).Value = "July"
> > .Offset(1, 7).Value = "August"
> > .Offset(1, 8).Value = "September"
> > .Offset(1, 9).Value = "October"
> > .Offset(1, 10).Value = "November"
> > .Offset(1, 11).Value = "December"
>

Just another...

Sub Demo()
ActiveCell.Resize(1, 12) = Application.GetCustomListContents(4)
End Sub

= = =
HTH :>)
Dana DeLouis


Exceller wrote:
> Thanks, Chip. I appreciate your help.
>
>
> "Chip Pearson" wrote:
>
>> Try something like
>>
>> Dim N As Long
>> For N = 0 To 11
>> Range("A1").Offset(1, N).Value = _
>> Format(DateSerial(2000, N + 1, 1), "mmmm")
>> Next N
>>
>>
>> Cordially,
>> Chip Pearson
>> Microsoft MVP
>> Excel Product Group
>> Pearson Software Consulting, LLC
>> www.cpearson.com
>> (email on web site)
>>
>>
>> On Sun, 7 Dec 2008 17:26:03 -0800, Exceller
>> <(E-Mail Removed)> wrote:
>>
>>> How do I consolidate this? Thanks.
>>>
>>> .Offset(1, 0).Value = "January"
>>> .Offset(1, 1).Value = "February"
>>> .Offset(1, 2).Value = "March"
>>> .Offset(1, 3).Value = "April"
>>> .Offset(1, 4).Value = "May"
>>> .Offset(1, 5).Value = "June"
>>> .Offset(1, 6).Value = "July"
>>> .Offset(1, 7).Value = "August"
>>> .Offset(1, 8).Value = "September"
>>> .Offset(1, 9).Value = "October"
>>> .Offset(1, 10).Value = "November"
>>> .Offset(1, 11).Value = "December"