Regarding Defined names

**Chandana_Gadugu** · 12-03-2009, 03:20 AM

I have 4 columns

Sheet Name(Defined Name) Reference To delete
sheet1 xxxxxxxxxxx yyyyyyyyy x
sheet1 zzzzzzzzzzzz yyyyyyyyy
sheet2 eeeeeeeeeeeee yyyyyyyyy x

Based on the first column it should go to the sheet name(i.e if it is sheet1 it should activete sheet1) and it should identify the names(Insert-name-define) in it and which are marked as to delete it should delete them.

**DonkeyOte** · 12-03-2009, 04:34 AM

You don't specify where the data table is stored etc but the below is based on code being invoked from sheet containing the list where data table in A2 onwards

If as implied you're using XL2003 then...

Sub Example()
Dim rngCell As Range
For Each rngCell In Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp)).Cells
    With rngCell
        If UCase(.Offset(, 3).Value) = "X" Then
            On Error Resume Next
            ThisWorkbook.Names(.Offset(, 1).Value).Delete
        End If
    End With
Next rngCell
End Sub