Sheet Array Help

[Eindrago]

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"

[Eindrago]

Full Macro if needed

Sub PasteValVar()

'Copy and Paste Variance on Forecast


Application.ScreenUpdating = False
Application.EnableEvents = False

Dim Answer As String
    Answer = MsgBox("Do you wish to copy and paste values in the variance column? This only has to be done once at the start of the forecast month.", vbQuestion + vbYesNo, "Last Chance to Abort")
    If Answer = vbNo Then
        MsgBox "You pressed NO! Macro will Exit"
        Exit Sub
    Else
        MsgBox "You pressed Yes! Macro will run"
    End If
'Unprotect All Sheets
Dim wSheet As Worksheet
    On Error Resume Next
    
    For Each wSheet In Worksheets
        wSheet.Unprotect Password:="aops2019"
    Next wSheet
  
   
 Range("Forecast_Change_Total").Select
    Selection.Copy
    Range("Forecast_Change_Curr_Value").Select
    Selection.PasteSpecial Paste:=xlPasteValues
        
        
   Range("Forecast_Change_Fut_Total").Select
    Selection.Copy
    Range("Forecast_Change_Future_Value").Select
    Selection.PasteSpecial Paste:=xlPasteValues
  
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"
    
Sheets("TI & LC").Select
        Columns("R:R").Select
        Selection.Copy
        Columns("U:U").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
        Columns("AK:AK").Select
        Selection.Copy
        Columns("AN:AN").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    
Sheets("NWC").Select
        Columns("S:S").Select
            Selection.Copy
        Columns("U:U").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        Columns("AL:AL").Select
            Selection.Copy
        Columns("AN:AN").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
Sheets("Escrow").Select
        Columns("S:S").Select
            Application.CutCopyMode = False
            Selection.Copy
        Columns("U:U").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Columns("AL:AL").Select
            Selection.Copy
        Columns("AN:AN").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
  ' CopySaveForecastChangeData Macro
'

'
    Sheets("TBSubtotals").Select
    Range("AG5").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Range("AG5:BF800").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-216
    Range("BG5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
'Protect All Sheets
    For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:="aops2019", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Next ws

 ' Reenable Events

Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
   
Application.StatusBar = ""
 
    
MsgBox "Process complete"

Sheets("Menu").Select
        Range("B16").Select

[ByteMarks]

Looks like you may be missing a couple of quotation marks? There are a few more potential ones, but it's hard to know without knowing the names of the sheets.

  "JV-Travel", "Prof Expenses", "Capital Exp")).Select

[Eindrago]

Unfortunately, that wasn't the issue, the Sheet Tab name is "JV-Travel, Prof Expenses"

[ByteMarks]

Try removing the On Error Resume Next and see if any errors arise.