do you have a ddefined list of what words are equivalent?

If so you could first use (eg)
sText=Replace(sText, "LTD", "Limited")
sText=Replace(sText, "Hlgds", "Holdings")
sText=Replace(sText, "etc", "etcetera")

before doing the comparison.

Tim.

"Purnima" wrote in message
...
Hi...
I want to perform a comparison on two string expressions. The
strings would
normally be of the form "ABC Systems Limited" or "ABC Systems LTD".
Now if I
were to compare these two strings, I want the macro to return true
even if
the last part of the strings dont match exactly, i.e. Limited and
LTD. In
simpler words, it should return true for two strings expressions
containing
abbreviations like LTD( Limited), Hlgds( Holdings) etc. Can anyone
please
help me with this?