I had to modify a macro that used the following Array
Sheets(Array("Minimum Rent Schedule", "SL Schedule", "RET Schedule", "Misc Income" _
, "Marketing Schedule", "HVAC Schedule", "CAM Income Schedule", _
"Other Income Schedule", "CAM-Cleaning", "CAM-Security", "CAM-R&M", "CAM-Utilities" _
, "CAM-Admin & Insurance", "CAM-HVAC", "RET Expense", _
"LL-Bad Debt, Legal, Prop Mgt", "LL-Office & R&M", "LL-Spec Leasing Expense", _
"LL-Marketing", "LL-Util, Leasing, Ground Lease", "LL-Other", _
"JV-Travel, Prof Expenses", "Capital Exp")).Select
Sheets("Minimum Rent Schedule").Activate
Columns("T:T").Select
Selection.Copy
Columns("U:U").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AM:AM").Select
Selection.Copy
Columns("AN:AN").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
I needed to split it into two arrays as the number of columns change on a portion of the sheets. So I assumed I could just do this, but now only the "Minimum Rent Schedule" works. What did I do wrong.
Sheets(Array("Minimum Rent Schedule", "SL Schedule", "RET Schedule", "Misc Income" _
, "Marketing Schedule", "HVAC Schedule", "CAM Income Schedule", _
"Other Income Schedule")).Select
Sheets("Minimum Rent Schedule").Activate
Columns("s:s").Select
Selection.Copy
Columns("v:v").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("v3").Select
ActiveCell.FormulaR1C1 = "Prior"
Columns("AL:AL").Select
Selection.Copy
Columns("AO:AO").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AO3").Select
ActiveCell.FormulaR1C1 = "Prior"
Sheets(Array("CAM-Cleaning", "CAM-Security", "CAM-R&M", "CAM-Utilities" _
, "CAM-Admin & Insurance", "CAM-HVAC", "RET Expense", _
"LL-Bad Debt, Legal, Prop Mgt", "LL-Office & R&M", "LL-Spec Leasing Expense", _
"LL-Marketing", "LL-Util, Leasing, Ground Lease", "LL-Other", _
"JV-Travel, Prof Expenses", "Capital Exp")).Select
Sheets("CAM-Cleaning").Activate
Columns("R:R").Select
Selection.Copy
Columns("U:U").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U3").Select
ActiveCell.FormulaR1C1 = "Prior"
Columns("AK:AK").Select
Selection.Copy
Columns("AN:AN").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AN3").Select
ActiveCell.FormulaR1C1 = "Prior"
Bookmarks