Macro for all tabs Headers and Page breaks

**sammar12** · 05-21-2008, 02:33 PM

I need to add to an existing macro that creates new tabs based on a criteria, a header. On the left I want the Tab Name and on the right I would like a company logo. I wil have 16 new tabs and I only want it for the 16 tabs to the right of the original information.

Also, of the 16 new tabs I would like to have the page currently falls on column H, but I prefer all of the new tabs to move the page break to column J.

I am new at this but am starting to get it to what I need.

**rwgrietveld** · 09-11-2008, 03:26 AM

How is this for starters?

Sub AddSheets()
  Dim Ccell As Range, Rng As Range
  Set Rng = Range(Worksheets("Companies").Range("A1"), Worksheets("Companies").Range("A65536").End(xlUp))
  For Each Ccell In Rng
    Worksheets.Add After:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = Ccell
  Next
End Sub