Rotate image if cell ends with "B"

[chris186h]

Hello all.
I have found a few articles but nothing that really matches what im trying to acheive.
I would like if B2 end with the letter B then shape "Up Arrow 1" rotates to 180 degrees elsewise keep at 0 degrees.
Any help would be greatly appreciated.

 

[gallen]

Here is the code:

    If UCase(Right(Range("B2"), 1)) = "B" Then
         Me.Shapes("Up Arrow 1").Rotation = 180
    Else
         Me.Shapes("Up Arrow 1").Rotation = 0
    End If

Or a neater way would be:

Me.Shapes("Up Arrow 1").Rotation = IIf(UCase(Right(Range("B2"), 1)) = "B", 180, 0)

 

[chris186h]

Here is the code:

    If UCase(Right(Range("B2"), 1)) = "B" Then
         Me.Shapes("Up Arrow 1").Rotation = 180
    Else
         Me.Shapes("Up Arrow 1").Rotation = 0
    End If

Or a neater way would be:

Me.Shapes("Up Arrow 1").Rotation = IIf(UCase(Right(Range("B2"), 1)) = "B", 180, 0)

That worked perfectly. Thankyou very much for your help