wks.Columns(1).Insert
With wks.Cells(1,1)
.Value = "Heading 1"
.font.Bold = True
End With
with wks.Range("W1").Resize(1,4)
.Value = Array( _
"Heading 2", "Heading 3", _
"Heading 4", "Heading 5")
.font.Bold = True
End With

wks.Cells.Interior.NumberFormat = "@"


--
Regards,
Tom Ogilvy


"Jako " wrote in message
...
Tom,
Thanks again but only the first worksheet is formatted as i need.
Here is the code i now have:



Sub all_sheets()
Dim wks As Worksheet
For Each wks In Worksheets
ChopAndChange wks
Next
End Sub

Sub ChopAndChange(wks As Worksheet)
wks.Range("C:C,G:G,I:I,K:M,P:R").EntireColumn.Hidd en = True
wks.Columns(1).Insert
With wks.Cells(1, 1)
Value = "Heading 1"
Font.Bold = True
End With
With Range("W1").Resize(1, 4)
Value = Array( _
"Heading 2", "Heading 3", _
"Heading 4", "Heading 5")
Font.Bold = True
End With


Sheets 2 & 3 have the 1st columns + "Heading 1" but not the
W - Z column changes.

TIA


---
Message posted from http://www.ExcelForum.com/