unable to set the currentpage property pf the pivotfield class

[wish2excel]

ActiveSheet.PivotTables("PivotTable1").PivotFields("Agent Name").CurrentPage = MyName
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Date").CurrentPage = dselect

Iam trying to update my pivot table with this code and i am getting an error "unable to set the currentpage property pf the pivotfield class"

 

[Andrew Poulsom]

What's in the variables MyName and dselect and which line causes the error? What would the code look like if strings were used instead of variables?

 

[wish2excel]

the second line causes the error, the variables my name is for the agent name and dselect is for the date.

 

[Andrew Poulsom]

If you record a macro while selecting a date from the page field what do you get? I think you will find that the date is a string.

 

[wish2excel]

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/03/2011 by i81849
'
'
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Agent Name").CurrentPage = _
        "Karunakaran, Vipin"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Date")
        .PivotItems("02/03/2011").Visible = False
        .PivotItems("03/03/2011").Visible = False
        .PivotItems("04/03/2011").Visible = False
        .PivotItems("07/03/2011").Visible = False
        .PivotItems("08/03/2011").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Date")
        .PivotItems("01/03/2011").Visible = False
        .PivotItems("04/03/2011").Visible = True
    End With
End Sub

This is the recorded macro,but instead of selecting the value, I am trying to get the value from the user.

 

[Andrew Poulsom]

Try:

ActiveSheet.PivotTables("PivotTable1").PivotFields("Date").CurrentPage = CStr(dselect)

 

[wish2excel]

I modified the code like this but still getting the same error.

Sub Macro1()
Dim dselect As String
dselect = Range("C1")

    ActiveSheet.PivotTables("PivotTable1").PivotFields("Agent Name").CurrentPage = _
        "Alex, George"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Date").CurrentPage = CStr(dselect)
End Sub

 

[Andrew Poulsom]

Try:

Dim dselect As Date