vba remove consecutive characters from the Right

[gtd526]

Hello,
Need to remove repeating characters from the Right and thats it, just the repeating ending characters only.
The number of ")" will differ. Could be 1 or 100. It will change daily. It will always be ")" at the end and will follow "", always. So anything after ""?
Here is the text for removal.

NBA.xlsm
	A
10	,IF(AND($A4=$AQ4,$B4<0,$B4=100),"????",""))))))))
Indicators

Im using the following code, but it removes all ")".

Range("A" & i).Replace What:=")", Replacement:="", LookAt:=xlPart

thank you

 

[Eric W]

Try:

    str1 = Range("A" & i).Value
    str1 = Left(str1, InStrRev(str1, """"))
    Range("A" & i).Value = str1

 

[gtd526]

Try:

    str1 = Range("A" & i).Value
    str1 = Left(str1, InStrRev(str1, """"))
    Range("A" & i).Value = str1

Working. Thank you.