A formula to do all that is
="-"&LEFT(A1,LEN(A1)-1)&(CODE(RIGHT(A1,1))-CODE("A")+1)
The result is treated as a string so you don't need to
format the cells to avoid loss of leading zeroes.

Kevin Beckham

-----Original Message-----
Then the macro will work. Format column A to retain your
leading
zeros.

In article ,
wrote:

Yes each entry only has one letter, and it is at the
end
of the data, for example column A has:

0000118800A
0000086780B
0000085170C
0000048567A
0000045830B
0000036000C
0000027140A
0000026170B
0000024280C

I need to find and replace ALL the 'A' with 1 and
multiply by -1, then find and replace ALL the 'B' with
2
and multiply by -1, then find and replace ALL the 'C'
with 3 and multiply by -1. So my results would be

-00001188001
-00000867802
-00000851703
-00000485671
-00000458302
-00000360003
-00000271401
-00000261702
-00000242803


.