Macro

[Jemima]

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

 

[Mike H]

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

 

[ryguy7272]

That code from GS is great! Put it in a module:
http://www.anthony-vba.kefra.com/vba/vbabasic1.htm#Creating_Your_First_Macro

Alternatively, you could use a function such as this:
=LEFT(A1,LEN(A1)-3)


Regards,
Ryan---