Names not deleted until book closed
After deleting a query, and deleting its name from the name list, I
can't recreate a query with the same name without closing the workbook. Here is a sample subroutine that illustrates the problem: Option Explicit Sub testA() Dim qt As QueryTable Dim nameEntry As Name If Sheets(1).QueryTables.Count = 0 Then Set qt = Sheets(1).QueryTables.Add _ ("URL; http://www.cnn.com", Range("A1")) qt.Name = "FirstQueryName" qt.Refresh Else Sheets(1).QueryTables(1).Delete For Each nameEntry In Sheets(1).Names nameEntry.Delete Next nameEntry End If End Sub After executing this subroutine the first time, a query with the name "FirstQueryName" is created. Upon the second execution, the query is deleted. Then, after the third execution, the query is recreated, but now the name is "FirstQueryName_1", even though the name has been deleted from the name list! What am I missing? This problem does NOT occur if I close and re-open the workbook between the second and third invocations of the subroutine. |
All times are GMT +1. The time now is 08:41 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com