Format all sheets in a workbook
Hi
I've already had a partial answer to this but it didn't work because I think I wasn't specific enough. Here goes again. I have 45 sheets in my workbook. I desperate for code that will allow me to format all sheets in my workbook at once, at the same time so that cell allignments allow for wrap cells and ariel font 10. The code below kindly provided only formats one sheet at a time. I'm using Office 2000. Any help would be great. For i = 1 To Sheets.Count With Sheets(i).Cells ..Font.Name = "Arial" ..Font.Size = 10 ..WrapText = True End With Next i Thanks Gordon. |
Format all sheets in a workbook
With a macro you must loop
Manual you can select all sheets(group) Do your things Ungroup -- Regards Ron de Bruin http://www.rondebruin.nl "Gordon" wrote in message ... Hi I've already had a partial answer to this but it didn't work because I think I wasn't specific enough. Here goes again. I have 45 sheets in my workbook. I desperate for code that will allow me to format all sheets in my workbook at once, at the same time so that cell allignments allow for wrap cells and ariel font 10. The code below kindly provided only formats one sheet at a time. I'm using Office 2000. Any help would be great. For i = 1 To Sheets.Count With Sheets(i).Cells .Font.Name = "Arial" .Font.Size = 10 .WrapText = True End With Next i Thanks Gordon. |
All times are GMT +1. The time now is 02:40 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com