@Ray707

1. I saw in your earlier post that you were using Worksheet_Change event

Did you change it back?

2. Are you sure you want A1:B2? IIRC you enter a number into A1, and B1 is a VLookup. Probably no matter but if you change the text in A2, the event will fire most likely unnecessarily

3. If the number of PTs could change (like it did), you could use something like

Private Sub Worksheet_Change(ByVal Target As Range)
Dim pt as PivotTable
Dim NewCat As String

If Intersect(Target, Range("A1:B2")) Is Nothing Then Exit Sub

NewCat = Range("B1").Value

For Each pt In PivotTables
On Error GoTo NextPT
  With pt 
    .PivotFields("Job No.").CurrentPage = NewCat
    .RefreshTable
  End With

NextPT:
    On Error Goto 0
NextEnd Sub
That way you wouldn't need to modify the code if you add another PT, or rely on PTs having a certain name (I usually rename mine to something meaningful)