Moving the last character within the cell so it will be the first

[Alex]

Hi

I'm faily new using VB. I wanted to move the last character so it will be
the first character if only that character is a - . This will be withing the
whole workbook.

 

[Gary''s Student]

Sub moveA()
For Each r In ActiveSheet.UsedRange
If IsEmpty(r.Value) Then
Else
v = r.Value
If Right(v, 1) = "a" Then
r.Value = "a" & Left(v, Len(v) - 1)
End If
End If
Next
End Sub