DELETE NAMES
 

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

DELETE NAMES
 

Hi Gus,

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



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

DELETE NAMES
 

range names

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

DELETE NAMES
 

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

--
Regards,
Tom Ogilvy

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

DELETE NAMES
 

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" wrote:

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

DELETE NAMES
 

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

"keepitcool" wrote in message
...
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" wrote:

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