One other way:

Sub RemoveLeftEight()

Columns("A:A").TextToColumns Destination:=Range("A1"), _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(8, 1))
End Sub


jposner < wrote:
I'd like to ask if someone could provide a macro that would do the
following.

I have several rows in one column.

Looks like:

2000001_JSJSLSLS.tif

I'd like to just be able to run through the entire column (approx 6300
rows) and delete the 8 Left characters while leaving the remaining
characters in the cell.

Result like:

JSJSLSLS.tif


Any help appreciated.

Thanks!


---
Message posted from http://www.ExcelForum.com/



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html