Removing Names

[Giordano Bruno]

I use a program called @RISK and it has the unfortunate habit of adding thirty names to any spreadsheet that is loaded while it is running.

All of the names commence with the word "risk", e.g. RiskRunAfterRecalcMacro.

I need some code that will look a the collection Names in active workbook and delete all names which start with "risk".

Any ideas?

 

[Macropod]

Hi Giordano,

Try:
Option Explicit

Sub KillRiskNames()
Dim oName As Name
For Each oName In ActiveWorkbook.Names
    If Left(oName.Name, 4) = "Risk" Then oName.Delete
Next
End Sub

Cheers

 

[ravishankar]

HI

Assuming the names are in col A, try these codes

Sub remove()
x = Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To x
If Left(Cells(a, 1), 4) = "risk" Then
Cells(a, 1).ClearContents
End If
Next a
End Sub

run the macro. it will clear the cell if it contains risk at the beginning of the string.
ravi

 

[Giordano Bruno]

ravishankar,

I'm sorry that my post was unclear. The names are added as named ranges, not text on a worksheet, but thanks for your interest.

Macropod,

Thanks for the code. Works perfectly. It will be very useful in the future also as this is a persistant problem.