"Lonely" ha scritto nel messaggio
...
| Hi All,
| I need to replace the text "NS" from all the cells in all the
| worksheets of an Excel workbook. I wish to design a macro that can help
| me do this along with the use of something that would allow me to do
| the "Find Whole Word" option similatr to the one we have in MS Word.

see also
newsgroup: this
thread: most popular word
date of thread: dec 8, 2003
date of post: today

Sub nsWord()
Dim w As Worksheet, c As Range
Set regexp = CreateObject("VBScript.RegExp")
regexp.Global = True
regexp.IgnoreCase = True
regexp.Pattern = "\bns\b"
For Each w In ActiveWorkbook.Worksheets
Set rng = w.UsedRange
For Each c In rng
c = regexp.Replace(c.Text, "")
Next
Next
End Sub
.f
fernando cinquegrani
Microsoft MVP
http://www.prodomosua.it