Cannot create a pivot table reference.

[GoPack1]

I have the following code to create a pivot table from a data set. I get a Reference is Not Valid at the red line below. I know the fix must be simple, but I have hit a blank on the fix.

Thanks in advance.

 Dim WSD As Worksheet
    Dim WSData As Worksheet
    Dim PTCache As PivotCache
    Dim PT As PivotTable
    Dim PRange As Range
    Dim FinalRow As Long
    Dim FinalCol As Long
    Set WSData = Worksheets("Counter Measures")
    Set WSD = Worksheets("Pivot")

    ' Delete any prior pivot tables
    For Each PT In WSD.PivotTables
        PT.TableRange2.Clear
    Next PT

    ' Define input area and set up a Pivot Cache
    FinalRow = WSData.Cells(Application.Rows.Count, 1).End(xlUp).Row
    FinalCol = WSData.Cells(1, Application.Columns.Count).End(xlToLeft).Column
    Set PRange = WSData.Cells(1, 1).Resize(FinalRow, FinalCol)
''''''''''''''''''''''''''''''''
    Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="=PRange")
''''''''''''''''''''''''''''''''''''''''''''''''''''''

I get a Reference is not Valid error at the next line.

    ' Create the Pivot Table from the Pivot Cache
    Set PT = PTCache.CreatePivotTable(TableDestination:=WSD.Cells(3, 1), TableName:="PivotTable4")

[Leith Ross]

Hello GoPack1,

Welcome to the Forum!

Your post title should convey a brief description of what you need help with. Please do not use general words and phrases like "Help!", "Code doesn't work", "Urgent!", etc. Your present title doesn't tell anyone what your question is or what type of problems you are experiencing.

A better title would be "Error - Reference Not Valid when creating a Pivot Table".

As a new member, please take the time to read over the
Forum Rules .

[GoPack1]

Sorry.

I am learning. I hope the new title is better. I do not know how to describe it any better.

[Leith Ross]

Hello GoPack1,

Thanks for changing the title. I didn't notice from the first post that you're a Tarheel. As if GoPack1 wasn't a give away! I grew up in Asheville.