One way using the active cell:
ActiveCell.Value = Left(ActiveCell.Value, Len(ActiveCell.Value) - 2)

If you want a specific cell reference:
Range("A1").Value = Left(Range("A1").Value, Len(Range("A1").Value) - 2)

HTH,
Paul

"rojobrown" wrote in message
...
How do you remove the last two digits in a cell using a macro?

--
Thanks a bunch!
rojobrown