typo!
resize s/b 13

Sub mkPiv2()
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=Range([temp!a1], [temp!a65536].End(xlUp)). _
Resize(,13)).CreatePivotTable _
TableDestination:=[a264], TableName:="PivotTable2"
End Sub

cheerz!

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


keepitcool wrote:

Sub mkPiv2()
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=Range([temp!a1], [temp!a65536].End(xlUp)).Resize(, _
13)).CreatePivotTable _
TableDestination:=[a264], TableName:="PivotTable2"
End Sub