Combo Box Code

The ME reference in your code refers to the worksheet the pivottable and combo box are on.

If you replace pivot tables ME reference with a reference to the worksheet you should be okay.

Try

Private Sub Workbook_Open()
  
    With Worksheets("Sheet3").Shapes("ComboBox1")
        With .OLEFormat.Object.Object
            .Clear
            .AddItem "<20"
            .AddItem "20-29"
        End With
    End With
  
End Sub

Andy,

Thanks again. Unfortunately still no joy. Please could you take another look?

Thanks so much.

My code is as follows (spreadsheet also attached):

Sheet 4 (Sheet PT is on):

Option Explicit
  
Private Sub ComboBox1_Change()
  
If Worksheets("Sheet3").ComboBox1.ListIndex < 0 Then
  
Exit Sub
  
End If
  
Select Case LCase(Worksheets("Sheet3").ComboBox1.Value)
  
Case Is = "<20"
  
With Worksheets("Sheet4").PivotTables("pivottable1")
  
.PageFields("Age").CurrentPage = "<20"
  
End With
  
Case Is = "20-29"
  
With Worksheets("Sheet4").PivotTables("pivottable1")
  
.PageFields("Age").CurrentPage = "20-29"
  
  
End With
  
End Select
  
End Sub

This Workbook:

Option Explicit
  
Private Sub Workbook_Open()
  
    With Worksheets("Sheet3").Shapes("ComboBox1")
        With .OLEFormat.Object.Object
            .Clear
            .AddItem "<20"
            .AddItem "20-29"
        End With
    End With
  
End Sub

Thank you

Private Sub ComboBox1_Change()

If Me.ComboBox1.ListIndex < 0 Then
    Exit Sub
End If
  
Select Case LCase(Me.ComboBox1.Value)
Case Is = "<20"
    With Worksheets("Sheet4").PivotTables("pivottable1")
      
    .PageFields("Age").CurrentPage = "<20"
      
    End With
Case Is = "20-29"
    With Worksheets("Sheet4").PivotTables("pivottable1")
        .PageFields("Age").CurrentPage = "20-29"
    End With
End Select
  
End Sub

Yes but you posted the combo boxes change event code to a sheet which does not have a combobox.

The event code needs to be on the same sheets as the combobox, as per my example.

You were using LCase in the select statement which made the case either "m" or "f", which of course it never would be.
Try this revision.

Private Sub ComboBox2_Change()

If Me.ComboBox2.ListIndex < 0 Then
    Exit Sub
End If
  
Select Case UCase(Me.ComboBox2.Value)
Case Is = "M"
    With Worksheets("Sheet4").PivotTables("pivottable1")
      
    .PageFields("Gender").CurrentPage = "M"
      
    End With
Case Is = "F"
    With Worksheets("Sheet4").PivotTables("pivottable1")
        .PageFields("Gender").CurrentPage = "F"
    End With
End Select

End Sub