Hi All,

This may be a silly question but I'm really stuck and need your help.

I'm trying to compare a string in a cell to another string to see if they match but can't seem to be able to because the comparison always fails. I must be using the wrong call. Like this:




'assume i and str are declared
With ActiveDocument
str = .Tables(i).Cell(2, 1).Range.Text
Select Case str
Case "AAA"
'do something
Case "BBB"
'do something
End Select
End With

I also tried Left(str, len(str) -1) to try and get rid of the non-printable character at the end of the string in the cell but it didn't work for me either.
Is there an easy way to compare a string in a cell to another string?

Thank you in advance.

Try:
str = Split(.Tables(i).Cell(2, 1).Range.Text, vbCr)(0)

As for 'Left(str, len(str) - 1)', you'd need to use 'Left(str, len(str) - 2)', since cells are terminated by a Chr(7) & Chr(13) pair.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you! it works like a charm.