Help

[Joe]

Hi,

Can I get the text from the text box and it actually
higlight the range of the cell based on the text key in.
After highlight the cell, it actually delete the range of
the cell.

tks.

regards,
Joe

 

[Bob Flanagan]

stext = userform1.textbox1.text
celltext = ActiveCell.Value
I = InStr(celltext, stext)
If I > 0 then _
activecell.value = Left(celltext, I - 1) & Mid(celltext, I + 1)

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