Filter Pivot table using named range

[deletedalien]

Hi guys, so im trying to have several pivots change automatically depending on the user who's logged in, i have a named range called repid where the rep id will sit once the workbook is opened, But for whatever reason i cant get my macro to work,

here is what i have:

Private Sub Workbook_Open()
Dim UserN As String
UserN = Environ("UserName")
Sheets("Rep Data").Range("E2").Value = UserN
Sheets("ISR Camp Overview All").Select
Range("F1").Value = Range("Repid")
Application.Calculate
Sheets("New Customers").Select
ActiveSheet.PivotTables("New_Customers").PivotFields("ISR").Value = Range("Repid")
Sheets("D03").Select
Application.CalculateFull
End Sub

i also tried:

Private Sub Workbook_Open()
Dim UserN As String
UserN = Environ("UserName")
Sheets("Rep Data").Range("E2").Value = UserN
Sheets("ISR Camp Overview All").Select
Range("F1").Value = Range("Repid")
Application.Calculate
Sheets("New Customers").Select
ActiveSheet.PivotTables("New_Customers").PivotFields("ISR").CurrentPage = Range("Repid")
Sheets("D03").Select
Application.CalculateFull
End Sub

and neither codes work,

Any ideas??

thanks in advance for your help.

 

[deletedalien]

I FIGURED IT OUT!!!

Private Sub Workbook_Open()
Dim UserN As String
UserN = Environ("UserName")
Sheets("Rep Data").Range("E2").Value = UserN
Sheets("ISR Camp Overview All").Select
Range("F1").Value = Range("Repid")
rep = Range("repid")
Application.Calculate
Sheets("New Customers").Select
ActiveSheet.PivotTables("New_Customers").PivotFields("ISR").CurrentPage = rep
Sheets("D03 Lost Quote Summary").Select
ActiveSheet.PivotTables("Lost_Quote_Summary").PivotFields("ISR").CurrentPage = rep
Sheets("D03 Reason Haven't Ordered Summ").Select
ActiveSheet.PivotTables("Reason_Havent_Ordered_Summ").PivotFields("ISR").CurrentPage = rep
Sheets("D03").Select
Application.CalculateFull
End Sub