Runtime Error 1004 Excel 97

[missfitz]

Hi Hoping someone can help keep getting the following error when macro
is ran. The Macro is:-

Private Sub CommandButton1_Click()
Sheets("Input Data").Select
ActiveSheet.Range("Import_Data").Select
Selection.ClearContents
Sheets("Input Data").Select
ActiveSheet.Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Pivot Table").Select
ActiveSheet.PivotTables("PivotTable2").RefreshTable
Sheets("Macros").Select
ActiveSheet.Range("A1").Select
End Sub


Please anyone help

 

[K Dales]

If your Import-Data range includes the entire query results range, you may be
erasing the query completely, so there is nothing left to refresh. If my
guess is correct, this would be the line highlighted when the error occurs
and you go to debug:
Selection.QueryTable.Refresh BackgroundQuery:=False

There is no need to erase a query range before refreshing. Excel will erase
the old data as part of the refresh process.

 

[Tim Williams]

Which line is the error on?

 

[missfitz]

Thanks I will give that a try and let you know what happens.