? left("bb",1000000)
bb

--
Regards,
Tom Ogilvy


"Gary''s Student" wrote:

v = ActiveCell.Offset(0, 5).Text
If Len(v) < 9 Then
Exit Sub
End If
a = Left(ActiveCell.Offset(0, 5).Text, 9)


--
Gary''s Student - gsnu200723