Option Explicit
Sub testme()
Dim RNG As Range
Set RNG = Range("A2", Range("A2").End(xlDown))
Columns("A:A")Insert Shift:=xlToRight
rng.Offset(0,-1).FormulaR1C1 = _
"=STRIPCN(RC[3])"
End Sub

Could be Another way.

--
Regards,
Tom Ogilvy


"Mick Smith" wrote in message
...
Thank you for all your suggestions. i can now postpone my computers
journey through the window.

Thanks

mick



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!