关于excel中数据透视表创建的问题?

[rnnp]

环境:win Xp sp2, Excel 2003
问题:我在一个宏中创建一个数据透视表,代码:
Set xlSht2 = ThisWorkbook.Worksheets("Sheet2")
ActiveWorkbook.Sheets("Sheet1").Activate
With ActiveSheet
.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Sheet1!A3S3:A6S6", TableDestination:=xlSht2.Cells(5, 1), TableName:="PivotTable1"

.PivotTables("PivotTable1").AddFields RowFields:=[A1].Value
.PivotTables("PivotTable1").PivotFields([A1].Value).Orientation = xlDataField
End With
sheet1是我要产生数据透视表的sheet,Sheet2是我要放数据透视表的sheet,
但运行到.PivotTableWizard时,报错: "引用无效"

请高手指点