It looks like what you want to do is:
ActiveWorkbook.Names(vInput2).Delete
Robert Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on
VB macros for Excel
"helmekki " wrote in message
...
HI all
i have several items (List) in column c........
I defined the items as names through the name dialoge box ..........
NB: i defined the items giving them the same names as they appera in
the list.
when i wnat to delete an item, i do this through inputbox....
see macro below...................
the chosen item is successfully deleted from the list (column c), but i
have a problem deleting the chosen name from the name dialoge box...
i tried, but...........pls see macro below
any ideas are appreciated in advanced
yours............hesham
Sub DeleteItem()
Dim rMyCell As Range
Dim vInput2 As String
vInput2 = InputBox("Choose Item To Delete", "Delete An Item")
If vInput2 < "" Then
For Each rMyCell In Sheet3.Range("C2:C10")
If rMyCell.Value = vInput2 Then
Application.EnableEvents = False
ActiveWorkbook.Names("SPEAKERCol").Delete
ActiveWorkbook.Names vInput2.Delete
End sub
as you see, when i specify the name the code works fine, but when i use
the vInput2 (that carry the chosen name) to delete it from the name
dialoge box, does not work.....................................
---
Message posted from http://www.ExcelForum.com/