formate sheet row a:a

[Ranjit kurian]

i have a workbook with more than 10 sheets, so i need a macro to select all
the sheets of my workbook without mentioning any sheetnames, because the
sheet names keep changes, it should select row A:A then change the font color
to red and bold at a time to all the sheets.

If not possible to select all the sheets at a time atleast select each sheet
one after other and format the row a:a

Note: sheet names keep changes.

 

[filo666]

Hi, try this:

Sub changeformat()
For Each wk In ActiveWorkbook.Worksheets
wk.Columns("a:a").Font.ColorIndex = 3
wk.Columns("a:a").Font.Bold = True
Next wk
End Sub