Hi...

I have a workbook with 45 sheets in it. I want to set the cell aligment of
all these sheets to wrap text and to set the font to aerial 10. This code
would be run from a macro button on a summary sheet within the same workbook.

I'm dead on my feet formatting each page. Any ideas would gratefully received.

Thanks Gordon.

This should do it...

For i = 1 To Sheets.Count
With Sheets(i).Cells
.Font.Name = "Arial"
.Font.Size = 10
.WrapText = True
End With
Next i


Hope that helps

--
R-Enem
-----------------------------------------------------------------------
R-Enemy's Profile: http://www.excelforum.com/member.php...fo&userid=1673
View this thread: http://www.excelforum.com/showthread.php?threadid=31935