Creating a Pivot Table in a new Workbook

[chriskiepfer]

I am new to VBA and have a problem running some code that should create a new Pivot Table. I can get the code to run fine in the sample sheet from the power programming book, but it will not run when I try to use it in a different workbook. I am get a type mismatch error with this code

Sub CreatePivotTable()
Dim PTCache2 As PivotCache
Dim PT2 As PivotTable

'error here
Set PTCache2 = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=Range("A1").CurrentRegion)

If I copy the data from the sample sheet to a new workbook, it works fine, it just won't work with new data?
Any suggestions would help.
Thanks