Hi,
I almost have a program running for excel. I am trying to call multiple
macros from "ThisWorkbook". The code below is supposed to delete the
current QueryTable and then after the QueryTable is deleted I call a
macro to add the new data. It currently does work for one
sheet/QueryTable/Macro. But I am not sure how to do this for multiple
sheets/QueryTables/Macros ?

MY QUESTION IS HOW DO I DELETE QUERYTABLES AND CALL MULTIPLE MACROS
FROM THE \"WORKBOOK_OPEN\" FUNCTION?

IF IT IS NOT POSSIBLE, IS THERE ANOTHER WAY TO DO THIS?


Private Sub Workbook_Open()


With Worksheets("Sheet1_RawData")

..QueryTables(1).ResultRange.ClearContents

End With


With Worksheets("Sheet1_RawData")

..QueryTables(1).Delete

End With


Dim qt As QueryTable

For Each qt In Sheets("Sheet1_RawData").QueryTables
'Clear QT data
qt.ResultRange.ClearContents

'Delete QT named range from workbook

Sheets("Sheet1_RawData").qt(1).Delete

'Delete query table
qt.Delete
Next qt

'Call macro to run new query
Call URL_Sheet1_Query

End Sub


--
slimswol
------------------------------------------------------------------------
slimswol's Profile: http://www.excelforum.com/member.php...o&userid=32014
View this thread: http://www.excelforum.com/showthread...hreadid=520282