PTcache Excel 2007 and 2003

[Forestq]

Team,

please tell me that this code could not working with Excel 2003?

Dim PTcache As PivotCache 
 
Set PTcache = ActiveWorkbook.PivotCaches.Create( _
       SourceType:=xlDatabase, _
       SourceData:=Range("A1").CurrentRegion.Address)

In excel 2007 is fine, but in 2003 I have "run-time error '438'".

thanks for your all advise how can I resolve this task,

regards,
Pawel