Hi All
Can any one help me to fix the below mentioned programme in my excel sheet where i need this to work. i mean if any one can make me to understand this will be helpfull. i don't know the VB but i have the same requirement in my report what this programme does.
this is Mr. Marvin P's programme if he is seeing this thread please help me.
' CHANGES THE NAME IN THE CUSTOMER CONTACTS PIVOT TABLE
Dim pvtTable As PivotTable
Dim pvtField As PivotField
Dim pvtItem As PivotItem
Dim filterName As String
Set pvtTable = Worksheets("Contacts").PivotTables("PivotTable10")
Set pvtField = pvtTable.PivotFields("Opportunity Owner: Full Name")
filterName = Worksheets("Data").Range("B1")
For Each pvtItem In pvtField.PivotItems
If pvtItem.Value = filterName Then
pvtField.CurrentPage = filterName
Exit For
End If
Next pvtItem
Bookmarks