Stripping out contents of a cell after 8 characters?

[Lance Hoffmeyer]

Is there a way to strip out the contents of a cell after 8 characters?

The cell may have the following contents:
Q22_2 N22 The only supplement I ever take is a multivitamin
and I want to reduce it down to:
Q22_2

I am going to modify this as a loop to include a range of cells


Lance

 

[JulieD]

Hi Lance

in your example to strip down to 5 characters .. so maybe something like
this will give you an idea
--

Sub strip8()
For Each c In Range("A1:A100")
c.Value = Left(c.Value, 8)
Next
End Sub