Deletion of Names from newly created Workbook that refers back to source .xlsm Workbook

[AlInVegas2]

I used an ActiveSheet.Copy followed by an ActiveWorkbook.SaveAs command to save an individual worksheet from the source workbook which has multiple worksheets. See below. Afterwards, I attempt to run code that deletes names from the newly created ActiveWorkbook. None of the subsequent For Each Loops work outside of the source worksheet. Appreciate any suggestions.

Dim DelName As Name

SaveFile = Range("$R$4").Value
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=SaveFile _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

For Each DelName In Application.ActiveWorkbook.Names
DelName.Delete
Next

 

[kevin9999]

When you're certain what your activeworkbook is, something like this might give you what you want:

Dim xName As Name, i As Long
For i = ActiveWorkbook.Names.Count To 1 Step -1
    ActiveWorkbook.Names(i).Delete
Next i

 

[AlInVegas2]

When you're certain what your activeworkbook is, something like this might give you what you want:

Dim xName As Name, i As Long
For i = ActiveWorkbook.Names.Count To 1 Step -1
    ActiveWorkbook.Names(i).Delete
Next i

Thanks... I will try tomorrow morning. 6 hours away from a 5AM meeting. I'll post results after.