K. Georgiadis
03-19-2005, 07:54 PM
This procedure is my (amateurish) edited version of a much longer recorded macro.
The Sheet array was the result of simply Grouping all of the named sheets. This is a simple macro that works fine the way it is but I suspect that you can show me how to condense it further.
Sub with_Meddux()
Application.ScreenUpdating = False
Sheets(Array("Delta-Jan", "Delta-Feb", "Delta-Mar", "Delta-Apr", _
"Delta-May", "Delta-Jun", "Delta- Jul", _
"Delta-Aug", "Delta-Sep", "Delta-Oct", "Delta-Nov", _
"Delta-Dec", "Delta-Monthly", "Delta-Quarterly", "Delta-Summary")).Select
Sheets("Delta-Jan").Activate
Range("A106").Select
ActiveCell.FormulaR1C1 = "1"
Sheets("Direct Expenses by Brand").Select
Range("A17").Select
ActiveCell.FormulaR1C1 = "1"
Sheets("Direct Expenses by Product").Select
Range("A18").Select
ActiveCell.FormulaR1C1 = "1"
Sheets("Navigation Menu").Select
Range("F19").Select
End Sub
The Sheet array was the result of simply Grouping all of the named sheets. This is a simple macro that works fine the way it is but I suspect that you can show me how to condense it further.
Sub with_Meddux()
Application.ScreenUpdating = False
Sheets(Array("Delta-Jan", "Delta-Feb", "Delta-Mar", "Delta-Apr", _
"Delta-May", "Delta-Jun", "Delta- Jul", _
"Delta-Aug", "Delta-Sep", "Delta-Oct", "Delta-Nov", _
"Delta-Dec", "Delta-Monthly", "Delta-Quarterly", "Delta-Summary")).Select
Sheets("Delta-Jan").Activate
Range("A106").Select
ActiveCell.FormulaR1C1 = "1"
Sheets("Direct Expenses by Brand").Select
Range("A17").Select
ActiveCell.FormulaR1C1 = "1"
Sheets("Direct Expenses by Product").Select
Range("A18").Select
ActiveCell.FormulaR1C1 = "1"
Sheets("Navigation Menu").Select
Range("F19").Select
End Sub