Or a macro to do the same
Sub trimtosevenchar()
mc = "k"
On Error Resume Next
For i = 1 To Cells(Rows.Count, mc).End(xlUp).Row
Set myc = Cells(i, mc)
If Len(myc) 6 Then myc.Value = Left(myc, 6) & Mid(myc, Len(myc))
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
Steve,

You could simple enter a formula like this

=LEFT(A2,6)&MID(A2,8,LEN(A2))

into another column, copy down, then copy and paste values over the
original. Either manually or with a macro would be simple...

HTH,
Bernie
MS Excel MVP


"Stephen" wrote in message
...
hi Folks,

I'm in desperate need of a macro that will traverse down an entire column
and remove the seventh character...
12345678, will become
1234568

TIA!!!

Steve