That code from GS is great! Put it in a module:
http://www.anthony-vba.kefra.com/vba...ur_First_Macro
Alternatively, you could use a function such as this:
=LEFT(A1,LEN(A1)-3)
Regards,
Ryan---
--
RyGuy
"Mike H" wrote:
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