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