Sub test()
For n = 1 To Range("C" & Rows.Count).End(xlUp).Row
If Left(Range("C" & n).Formula, 1) = "=" Then
For m = Len(Range("C" & n).Formula) To 2 Step -1
If Asc(Mid(Range("C" & n).Formula, m, 1)) > 64 And Asc(Mid(Range("C" & n).Formula, m, 1)) < 91 Then
x = Mid(Range("C" & n).Formula, 1, m - 1)
y = Mid(Range("C" & n).Formula, m)
Z = x & "$" & y
m = m - 1
Range("C" & n).Formula = Z
End If
Next
End If
Next n
End Sub