From: Ron de Bruin on
Change the H to the column you want in this line
'Optional: This will copy the sheet name in the H column
DestSh.Cells(Last + 1, "H").Resize(CopyRng.Rows.Count).Value = sh.Name


--

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



"msnyc07" <msnyc07(a)discussions.microsoft.com> wrote in message news:0F513F41-F780-4EE1-892F-44BAE4B81F50(a)microsoft.com...
> Well I am merging basically columns 1-5, each has the same name convention in
> row 1.
>
> I want to combine in one sheet, but in row 6 I want to push the name of the
> sheet so once it is combined i retain the categories I used the sheets for.
>
> "Ron de Bruin" wrote:
>
>> Which columns do you want to merge
>>
>> --
>>
>> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>>
>>
>>
>> "msnyc07" <msnyc07(a)discussions.microsoft.com> wrote in message news:48F2E546-200C-4E9A-8DBE-2B85444A9BF1(a)microsoft.com...
>> > Thanks for the script!
>> >
>> > What if I simultaneously pull the sheet name into ColumnX for each record so
>> > I can retain categorization?
>> >
>> > "Ron de Bruin" wrote:
>> >
>> >> With a macro it is easy (I think)
>> >>
>> >> Start here
>> >> http://www.rondebruin.nl/copy2.htm
>> >>
>> >> If it is for a few cells check out
>> >> http://www.rondebruin.nl/summary.htm
>> >>
>> >>
>> >>
>> >> --
>> >>
>> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl/tips.htm
>> >>
>> >>
>> >>
>> >> "msnyc07" <msnyc07(a)discussions.microsoft.com> wrote in message news:316B95FE-8A3C-4345-B2AF-04C7E03DB3CF(a)microsoft.com...
>> >> > I have a large worksheet with about 200 sheets all with the same field layout.
>> >> >
>> >> > I want to combine into one worksheet and pull the sheet name into columnX so
>> >> > I keep the organization. Can this be done easily?
>> >> .
>> >>
>> .
>>