I have a macro with the following line :
MyValue = UCase(InputBox("Type your text", "FILE SEARCH"))
On Error GoTo err_Trap
Cells.Find(What:=MyValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
MyFindNext = vbYes
Do Until MyFindNext <> vbYes
This works perfect,but when I type : VANDERLINDEN, I get no answer on the search.When I type VAN DER LINDEN then I get an answer as find.
Is it possible to add a line in this macro who don't count the spaces?
Many thanks in advance
MyValue = UCase(InputBox("Type your text", "FILE SEARCH"))
On Error GoTo err_Trap
Cells.Find(What:=MyValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
MyFindNext = vbYes
Do Until MyFindNext <> vbYes
This works perfect,but when I type : VANDERLINDEN, I get no answer on the search.When I type VAN DER LINDEN then I get an answer as find.
Is it possible to add a line in this macro who don't count the spaces?
Many thanks in advance
