VBA清除單元格名稱的範圍

Question

在執行過程之前，我需要清除一個範圍內的所有命名單元格的名稱。

我嘗試沒有成功，到目前爲止下面的代碼：

Sub EraseCellNames() 

Worksheets("SheetA").Range("A1:G5").Select 
Dim nName As Name 
    For Each nName In Names 
     If Not Intersect(Selection, Range(nName.Name)) Is Nothing Then 
      nName.Delete 
     End If 
    Next nName 

End Sub 

任何想法？

在此先感謝！

Answer 1

試試這個：

Sub EraseCellNames() 
    Dim nName As Name 
    Dim targetRng As Range 

    Set targetRng = Worksheets("SheetA").Range("A1:G5") 

    For Each nName In ThisWorkbook.Names 
     If nName.ValidWorkbookParameter Then 
      If targetRng.Parent.Name = nName.RefersToRange.Parent.Name Then 
       If Not Intersect(targetRng, nName.RefersToRange) Is Nothing Then nName.Delete 
      End If 
     End If 
    Next nName 
End Sub