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