Pivot Tables Name

Hi Becky

Without seeing how your data is set up from what you said above it seems that your DataRange is not picking up the full table including the column labels which are taken by the system and converted to the pivottable field names.

The example code below sets the DataRange as a table whose column labels start in cell A9 and the destination on another sheet.

You will notice you need to pick up in full the table that contains the data to be pivoted so that when you populate the pivot table the computer knows which fields to use.

Sub MyPivot()

Dim DataRange As Range
Dim Destination As Range
Dim PvtTable As PivotTable

Sheets(