Hi Paula,
Am Wed, 6 Jun 2012 14:01:52 +0100 schrieb Paula:
did not you read my answer in the other thread?
In a helper column try it with:
=MID(A1,7,LEN(A1)-14)
then copy the helper column and paste it back as values.
Or try it with VBA:
Sub CutNum()
Dim LRow As Long
Dim first As String
Dim last As String
Dim rngC As Range
LRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each rngC In Range("A1:a" & LRow)
first = Left(rngC, 6)
last = Right(rngC, 8)
rngC = Replace(Replace(rngC, first, ""), last, "")
Next
End Sub
Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2