run time error 9 : subscript out of range

This program is supposed to take the value in two combo boxes and use them to populate pivot charts that are in other spreadsheets. So a user would select PS and AMI on sheet one (s) and it would change the pivot table on s1-s9 to look up those chosen fields. I keep getting a subscript out of range error, and I'm not sure if my pivottable.pivotlayout method is correct, but when I recorded a macro (in the very bottom) using activesheet, it worked. How can I fix this?

The error occurs at the first large text, the second large text is the recorded macro.

Private Sub ChooseButton_Click()

Dim s As String
Dim ws As Worksheet
Dim s1 As String
Dim ws1 As Worksheet
Dim s2 As String
Dim ws2 As Worksheet
Dim s3 As String
Dim ws3 As Worksheet
Dim s4 As String
Dim ws4 As Worksheet
Dim s5 As String
Dim ws5 As Worksheet
Dim s6 As String
Dim ws6 As Worksheet
Dim s7 As String
Dim ws7 As Worksheet
Dim s8 As String
Dim ws8 As Worksheet
Dim s9 As String
Dim ws9 As Worksheet


s = ".csv]Oppty Created to R1 Date L"
s1 = "Opportunity Created"
s2 = "Submit to ComOps"
s3 = "Bid Due"
s4 = "Expected Order"
s5 = "R1"
s6 = "Proposal Promise"
s7 = "R2"
s8 = "Proposal Submit"
s9 = "R3"

Set ws = Workbooks("Leading Indicators FW33.xls").Worksheets(s)
Set ws1 = Workbooks("Leading Indicators FW33.xls").Worksheets(s1)
'Set ws2 = Workbooks("Leading Indicators FW33.xls").Worksheets(s2)
'Set ws3 = Workbooks("Leading Indicators FW33.xls").Worksheets(s3)
'Set ws4 = Workbooks("Leading Indicators FW33.xls").Worksheets(s4)
'Set ws5 = Workbooks("Leading Indicators FW33.xls").Worksheets(s5)
'Set ws6 = Workbooks("Leading Indicators FW33.xls").Worksheets(s6)
'Set ws7 = Workbooks("Leading Indicators FW33.xls").Worksheets(s7)
'Set ws8 = Workbooks("Leading Indicators FW33.xls").Worksheets(s8)
'Set ws9 = Workbooks("Leading Indicators FW33.xls").Worksheets(s9)

 ws1.PivotTables("pivottable10").PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2
 ws1.PivotTables("pivottable10").PivotLayout.PivotFields("Sub P&L").CurrentPage = ComboBox1
 
 'ws2.PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2 _
 ws2.PivotLayout.PivotFields("Sub P&L").CurrentPage = ComboBox1 _
ws3.PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2 _
 ws3.PivotLayout.PivotFields("Sub P&L").CurrentPage = ComboBox1 _
ws4.PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2 _
 ws4.PivotLayout.PivotFields("Sub P&L").CurrentPage = ComboBox1 _
ws5.PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2 _
 ws5.PivotLayout.PivotFields("Sub P&L").CurrentPage = ComboBox1 _
ws6.PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2 _
 ws6.PivotLayout.PivotFields("Sub P&L").CurrentPage = ComboBox1 _
ws7.PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2 _
 ws7.PivotLayout.PivotFields("Sub P&L").CurrentPage = ComboBox1 _
ws8.PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2 _
 ws8.PivotLayout.PivotFields("Sub P&L").CurrentPage = ComboBox1 _
    ws9.PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2 _
 ws9.PivotLayout.PivotFields("Sub P&L").CurrentPage = ComboBox1
    
    'ActiveChart.PivotLayout.PivotFields("Sub P&L").CurrentPage = "(All)" _
    Sheets("Sumbit to ComOps").Select _
    ActiveChart.PivotLayout.PivotFields("P&L").CurrentPage = "PS" _
    ActiveChart.PivotLayout.PivotFields("Sub P&L").CurrentPage = "AMI" _
    ActiveChart.PivotLayout.PivotFields("Sub P&L").CurrentPage = "(All)" _
    Sheets("Bid Due").Select
'End Sub

End Sub

I have checked that, its not the case. I copied the names of the tabs directly from the sheet tabs, and then also copied the workbook name directly. No fix.

i'm sure this is about to make me look like an idiot

all the sheets are in the same file, do I need to reference the workbook?

I'm an idiot, right?

I should also say this is only the third code I have made.

does that have a different name for the code?

ws As worksheet 
ws1 As worksheet
s as string
s1 as string
cht as chart

s = ".csv Oppty Created to R1 Date L"
s1 = "Opportunity Created"
set cht = sheets(s1)

so on the next lines, should I change ws1 to .charts(cht)?
should it be cht.pivottables ... ? I'm getting an object doesnt support property or method on the pivot tables line.

Set ws = Workbooks("Leading Indicators FW33.xls").Worksheets(s)
Set ws1 = Workbooks("Leading Indicators FW33.xls").charts(cht)
' this above line gets a type mismatch like this
'if i change this next line to cht.pivottables I get the object doesn't support property 

 ws1.PivotTables("PivotTable10").PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2
 ws1.PivotTables("PivotTable10").PivotLayout.PivotFields("P&L").CurrentPage = ComboBox1

This code is causing me a lot of grief.

Unable to set the _Default property of the PivotItem class

Private Sub ChooseButton_Click()

Dim s As String
Dim s1 As String
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim cht As Chart

s = ".csv Oppty Created to R1 Date L"
s1 = "Opportunity Created" 'this is a pivot chart

Set cht = Charts(s1)

cht.PivotLayout.PivotFields("P&L").CurrentPage = ComboBox2 'error here
cht.PivotLayout.PivotTable.PivotFields("Sub P&L").CurrentPage = ComboBox1

I appreciate everyones help, but do realize, I'm new to coding so I don't really understand all the advice that is being given.

Okay, instead of trying to update the chart, can I not just update the sheet that has the pivot table instead? So I set Combobox 1 and 2 on the first sheet, then have the pivot table in "sheet1" change. Here is the recorded macro

Sheets("Sheet1").Select
    ActiveSheet.PivotTables("PivotTable10").PivotFields("P&L").CurrentPage = "PS"
    ActiveSheet.PivotTables("PivotTable10").PivotFields("Sub P&L").CurrentPage = _
        "AMI"
    Sheets("Opportunity Created").Select

and here is what I tried:

 Private Sub ChooseButton_Click()

Dim s As String
Dim s1 As String

Dim ws As Worksheet
Dim ws1 As Worksheet

Dim chart1 As Chart

s = ".csv Oppty Created to R1 Date L"
s1 = "Sheet1"

Set ws1 = Workbooks("Leading Indicators FW33.xls").Sheets(s1)
    
  ws1.PivotTables("PivotTable10").PivotFields("P&L").CurrentPage = ComboBox2
    ws1.PivotTables("PivotTable10").PivotFields("Sub P&L").CurrentPage = ComboBox1

end sub

I get run time error 1004: unable to set the default property of the pivotitem class at the bolded line.

actually i think i fixed it guys, sorry for all the posts