Deleting worksheet specific range names
Thanks. That did it!
"Peter T" wrote:
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" wrote in message
...
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
|