anandks007
New Member
- Joined
- Apr 15, 2009
- Messages
- 4
I am having an excel macro. But since I'm having close to 30 work sheets, I need to run the same macro in every sheet. My current macro works only for the first sheet. Can any one help me?
Code:
Sub WorkZ()
For Each WS In Worksheets
Columns("K:AE").Select
Selection.Delete Shift:=xlToLeft
Cells.Select
With Selection.Font
.Name = "Arial"
.Size = 8
.ColorIndex = 1
End With
Range("A2:D20").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "#,##0.0"
Selection.NumberFormat = "#,##0"
Range("E2:E7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.000%"
Selection.NumberFormat = "0.0000%"
Selection.NumberFormat = "0.00000%"
Selection.NumberFormat = "0.000000%"
Range("G21").Select
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Rows("1:1").Select
Selection.Font.Bold = True
Columns("A:I").Select
Selection.ColumnWidth = 5.29
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Range("A1").Select
ActiveWorkbook.Save
Next WS
End Sub