Another code question

[Smokin Joe]

I am writing some code which attempts clears the bet reference UNLESS the bet is not fully matched.

My code is:
For a = 5 To 150
ws1.Range("T" & a).Value = Betref
If Right(Betref, 1) <> "P" Then
' Clear bet references
ws1.Range("T" & a & ":W" & a).ClearContents
End If
Next a

However, the Bet Reference is cleared every time, even if the bet is partially matched, ie "P" is the last character.

What am I doing wrong?

Cheers
SJ

[GaryRussell]

Isn't the assignment the wrong way round?

ws1.Range("T" & a).Value = Betref

Should be:-

Betref = ws1.Range("T" & a).Value

[Smokin Joe]

yep, thanks Gary.

It's frustrating to get the easy bit of the code wrogn