Help converting a workbook function into a Macro

Dear Experts
I found the following workbook function on the web and i dont know how to convert it into a macro. Being a new user of VBA i have tried and failed in last cpl of days

Option Explicit
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim ptTable As PivotTable, strField As String
strField = "FIELD 1"' I WOULD WANT TO RENAME THIS TO ROUTE instead of FIELD 1
On Error GoTo ExitPoint
Application.EnableEvents = False
For Each ptTable In ActiveSheet.PivotTables
    If ptTable <> Target Then
        ptTable.PageFields(strField).CurrentPage = Target.PageFields(strField).CurrentPage.Value
    End If
Next ptTable
ExitPoint:
Application.EnableEvents = True
End Sub

Why do you want to convert it to a macro?

As it is this code, in a worksheet module, will be triggered whenever a pivot table on the worksheet is updated.

Do you want to do something different?

Also, how would you want to call the code?

Do you mean the code is running but not doing what you expect it to?

Can you attach a sample workbook?

The code should go in a worksheet module.

To access a worksheet's module right click it's tab and select code.

The window that opens is where the code needs to go.

I think you need to check if the code is being triggered.

To do that put a breakpoint on the first line of the code with F9.

Then return to the worksheet and make a change on one of the pivot tables.

If the code is being triggered you should be transferred to the line of code you set the breakpoint on.

If that doesn't happen then the code isn't being triggered.

By the way, I checked with an external data source, Access, and the code is triggered when I make a change, eg filter, the pivot table.