Given that the values being modified are numbers with any alpha characters
only at the end, you can shorten your code to this...

Dim LastRow As Long
Dim i As Long

With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
.Cells(i, "A").Value = Val(.Cells(i, "A").Value)
Next
End With

--
Rick (MVP - Excel)


"Bob Phillips" wrote in message
...
Dim LastRow As Long
Dim i As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow

.Cells(i, "A").Value = Val(Left$(.Cells(i, "A").Value,
Len(.Cells(i, "A").Value) - 1))
Next i
End With


--
__________________________________
HTH

Bob

"K Drier" <K wrote in message
...
I have a column of numbers that end with an alpha character. I need to
remove the alpha character and I'd like to write a macro or formula to do
it
automatically since the column is about 1000 numbers long.

I got the macro to work once, but it won't work again on the balance of
the
column. Would someone please help me figure out what I need to do to
make
this an automatic process so I can reuse it at a later date?

Thanks so much!