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

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

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