Hi, I have set up a macro that creates a pivot table that needs to be run periodically with new rows of data but same fields each time. The first time the macro worked but now I am getting errors that say "runtime error 1004 reference not valid". How do I revise the code on the macro so that it will run each time? Here is what I have:
Public Sub Macro6()
'
' Macro6 Macro
' Macro recorded 11/24/2003 by ALEGENT HEALTH
'
'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Selection").CreatePivotTable TableDestination:="", _
TableName:="PivotTable1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("Location", _
"Descr", "Data")
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Hrs")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Earns").Orientation = _
xlDataField
Application.CommandBars("PivotTable").Visible = False
End Sub
Public Sub Macro6()
'
' Macro6 Macro
' Macro recorded 11/24/2003 by ALEGENT HEALTH
'
'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Selection").CreatePivotTable TableDestination:="", _
TableName:="PivotTable1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("Location", _
"Descr", "Data")
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Hrs")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Earns").Orientation = _
xlDataField
Application.CommandBars("PivotTable").Visible = False
End Sub