Deleting worksheet specific range names

[Barb Reinhardt]

I have a datasheet with a list of worksheet range names that I want to
delete. The sheet name is in column A and the range name is in column B. I
have the following
code. What do I need to change to get the range names to be deleted?

datasheet = ActiveSheet.Name
CurBook = Application.ActiveWorkbook.Name

For i = 3 To 48
rangename = Workbooks(CurBook).Worksheets(datasheet).Range("b" & i).Value
sht = Workbooks(CurBook).Worksheets(datasheet).Range("a" & i).Value
CurBook.Worksheet(sht).Names(rangename).Delete
Next i

Thanks

 

[Gary''s Student]

Sub Delete_Names()
Dim n As Name
For Each n In ActiveWorkbook.Names
n.Delete
Next n
End Sub

 

[Peter T]

Assuming 'rangename' is returning a valid Worksheet level name for 'sht' try
changing

CurBook.Worksheet(sht).Names(rangename).Delete

Workbooks(CurBook).WorksheetS(sht).Names(rangename).Delete

Rather than Workbooks(CurBook) you could set a reference to the workbook.

Regards,
Peter T

 

[Barb Reinhardt]

Thanks. That did it!

Assuming 'rangename' is returning a valid Worksheet level name for 'sht' try
changing


Workbooks(CurBook).WorksheetS(sht).Names(rangename).Delete

Rather than Workbooks(CurBook) you could set a reference to the workbook.

Regards,
Peter T

 

[Barb Reinhardt]

That would work if I wanted to delete all the workbook names in the workbook.
I didn't. Peter T had the response I needed.