Jemima,

Right click the sheet tab, view code and paste this in

Sub stance()
Lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row 'Change to suit
Set myrange = Range("A1:A" & Lastrow)
For Each c In myrange
On Error Resume Next
c.Value = Left(c.Value, Len(c.Value) - 3)
Next
End Sub

Mike

"Jemima" wrote:

Hi,
I am trying to write a simple macros to work down a column and delete the
final 3 characters in the Cell.
Any ideas?
Many thanks