Hi there again,

Does anyone know how to make a selection for a pivot table variable
accor5ding tot the actual number of lines in the sourcefile?

Specificalle this piece of code: .......siteOrder'!R1C1:R2450C6"
----------------------------------------------------------------------------
--------------------
Workbooks(MyVar).Activate

ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"'[Item_Master_Sheet_20030828.xls]Sheet_for_siteOrder'!R1C1:R2450C6"
_
, TableDestination:="R1C1", TableName:="PivotTable1"
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:= _
"Current Item Number in Logistics", ColumnFields:= _
"User Item Type (Productgroup)"
With ActiveSheet.PivotTables("PivotTable1").PivotFields ( _
"Current Item Number in Logistics")
.Orientation = xlDataField
.Name = "Sum of Current Item Number in Logistics"
.Function = xlSum
End With
----------------------------------------------------------------------------
--------------------

Would appreciate suggestions.

regards
Ruud