Excel 2010 VBA在导入分隔文本数据时创建奇怪的命名数据区域

我正在使用在线找到的查询方法将管道分隔的文本文件导入excel电子表格。代码运行得既漂亮又快速，但是每次我运行它时，它都会创建一个奇怪的命名范围。问题是我似乎找不到使用VBA删除范围的有效方法，我只能使用名称管理器进行删除。这是我的密码：

Function doFileQuery(fileName As String, outSheet As String) As Boolean

    Dim rootDir As String

    rootDir = "W:\Development"

    Dim connectionName As String

    connectionName = "TEXT;" + rootDir + "\" + fileName

    With Worksheets(outSheet).QueryTables.Add(Connection:=connectionName, Destination:=Worksheets(outSheet).Range("A5"))

        .Name = fileName
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "|"
        .Refresh BackgroundQuery:=False

    End With
    doFileQuery = True
End Function

以下是创建的奇怪命名范围： _11r_3_Eastdata_Franklaroccamonts_c_4

以下是我试图删除它的方式： 此工作簿。名称（“\u 11r\u 3\u Eastdata\u FrankLaRoccaMonths\u c\u 4”）。删除

当VB点击上面的语句时，它给了我一个

运行时错误“1004”：

应用程序定义或对象定义错误

---

任何帮助都将不胜感激

可能是工作表级别的名称。尝试：

---

ActiveSheet.Names（“\u 11r\u 3\u Eastdata\u FrankLaRoccaMonths\u c\u 4”）。删除
可能是工作表级别的名称。尝试
ActiveSheet.Names（“\u 11r\u 3\u Eastdata\u FrankLaRoccaMonths\u c\u 4”）。删除
谢谢！这似乎奏效了@一点也不！我喜欢在正确的时候获得信用：）