Pivot Table- Keep Getting Error 5

I am trying to run the macro below but keep getting Error 5, any ideas why this is at all.


Sub Quarterly07()
Dim PTCache As PivotCache
Dim PT As PivotTable
'Create the cache
Set PTCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDateBase, SourceData:=Range("A1").CurrentRegion)

' Add a new sheet for the pivot table
Worksheets.Add
'Create the pivot table
Set PT = ActiveSheet.PivotTables.Add( _
PivotCache:=PTCache, _
TableDestination:=Range("A4"))