Hi Norman,
Thanks for the help. It works good but it gives an error message that
highlights
Set rngFound = Cells.Find(What:=sStr, _
After:=Selection, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext)
in the debugger. It appears to have a problem with
SearchDirection:=xlNext)
Any suggestions?
Thanks again, SJ
--
SubliminalJones
------------------------------------------------------------------------
SubliminalJones's Profile:
http://www.excelforum.com/member.php...o&userid=27597
View this thread:
http://www.excelforum.com/showthread...hreadid=496293