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

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.

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

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
--
Gary''s Student - gsnu200780