Quotation mark?

How do you find if the last character in a string is a quotation mark?

If Right(Range("A1").Value = """ Then

If I enter this as above it will not work. I have a unique case that many cells will have a quotation mark as the last character, I can not prevent this but I do need to capture the cell address and do some code.

Any help is appreociated!

Try

If Right(Range("A1").Value) = Chr(34) Then
' or
If Right(Range("A1").Value) = """ Then

Oh hell, that was too easy!

Thank you!

Excel 2007 simply will not except this format

If Right(Range("A1").Value,1) = """ The

But it does when formatted as

If Right(Range("A1").Value) = Chr(34) Then

So, how do I replace the quotation mark, this will not work.

Replace(Range("A1").Value, """ , "")
'or
Replace(Range("A1").Value, Chr(34) , "")

I have to find the quotation mark, place the text value of the cell in a variable, remove the quotation mark and concatenate with another cell. I have it all less removing that darn quotation mark.

Don't forget to specify the number of characters

Both the VBA and worksheet versions default to 1

So, how do I replace the quotation mark

You mean remove a trailing quote if there is one? Maybe

with range("a1")
    someStr = iif(right(.value) = chr(34), left(.value, len(.value) - 1), .value)
end with

Thank you, why can't help just state that?