im tying to change the data in the filter of a pivot table based on what value is entered.

so far i have:
Sub GetStationInfo_Click()
'
' GetStationInfo Macro
'
Dim SerialNumber As String
Dim StationNumber As Integer
'
    SerialNumber = InputBox("Please Enter Serial Number")
    StationNumber = InputBox("Please Enter Station Number")
    
    Sheets("Filter Table").Range("B5") = StationNumber
    
    ActiveSheet.PivotTables("PivotTable2").PivotFields("PRD_SERIAL_NUMBER"). _
        EnableMultiplePageItems = True
        
    ActiveSheet.PivotTables("PivotTable2").PivotFields("PRD_SERIAL_NUMBER"). _
        PivotItmes("&SerialNumber&").Visible = True
        
End Sub
i have only been doing VBA for about 3 weeks

the first inputbox changes a Cell B5 no problem but i can't change the PivotItems to the variable.

thanks in advance, if you need more info or a demo of the speadsheed then just ask.