Macro for all tabs Headers and Page breaks

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