DELETE NAMES

[gus]

HOW can i delete all the names that starts with the letter "F" in a workbook
..(with vba)

 

[zantor]

Hi Gus,

Do you want to delete 'Worsheets' or names in cells or what?

 

[gus]

range names

 

[Tom Ogilvy]

for each nm in ThisWorkbook.Names
if Ucase(Left(nm.name,1)) = "F" then
nm.Delete
end if
Next

 

[keepitcool]

Tom..

Finally.. I can correct the master

Your code will remove a name like Form1!number..
Following should be a bit more precise.


Sub NameFkiller()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If nm.Name Like "*[!]f*" Or _
(nm.Name Like "f*" And Not nm.Name Like "*[!]*") Then
nm.Delete
End If
Next
End Sub


keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >

 

[Tom Ogilvy]

Good correction, but probably Overcome by Events. Based on his other posts,
he is just trying to delete one corrupted name. (and it appeared to be
workbook level <g>).

--
Regards,
Tom Ogilvy

Tom..

Finally.. I can correct the master

Your code will remove a name like Form1!number..
Following should be a bit more precise.


Sub NameFkiller()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If nm.Name Like "*[!]f*" Or _
(nm.Name Like "f*" And Not nm.Name Like "*[!]*") Then
nm.Delete
End If
Next
End Sub


keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >

for each nm in ThisWorkbook.Names
if Ucase(Left(nm.name,1)) = "F" then
nm.Delete
end if
Next