From: Roger Govier on
Hi

your problem is that you wrote the code under XL2002.
You have obviously moved to XL2007 (xlsm file and 77,000 rows)

Change
TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10

to
TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion12
--
Regards
Roger Govier

Epidemic wrote:
> once my report exceeded 65536 this command no longer works yielding an error
> type missmatch. the command worked fine until the size exceeded 65536 and I
> know RWS variable is where I am having problems. But I do not know why or
> how to overcome the problem. below you will find the code which is broken.
>
>
>
>
> Workbooks(SSRname).PivotCaches.Create(SourceType:=xlDatabase,
> SourceData:=SrcDat.Range(SrcDat.Cells(1, 1), SrcDat.Cells(RWS, CLMN)),
> Version:=xlPivotTableVersion10).CreatePivotTable
> TableDestination:=Workbooks(SSRname) .Worksheets(DTPivot).Cells(1, 1),
> TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
>
>
>
>
>
> I have broken out the specific problem area for you to see.
>
>
> Specifically the SourceData:=SrcDat.Range(SrcDat.Cells(1, 1),
> SrcDat.Cells(RWS, CLMN))
>
> RWS = 75000
> CLMN= 43
>
> I have dimensioned RWS as long
>