Pivotcache Run Time Error: Type Mismatch in VBA

Question

I am trying to create a pivot table using the following code:

Sub pivot()
Windows("DATA.xlsx").Activate
Dim PSheet As Worksheet
Dim DSheet As Worksh