This is just sample code. I will start with Z100. This changes one cell:


Sub Macro1()
Dim s As String
s = Cells(100, 26).Value
Cells(100, 26).Value = Right(s, Len(s) - 9)
End Sub

This starts with row 100 and runs down another 650 cells:


Sub macro2()
Dim s As String
For i = 100 To 750
s = Cells(i, 26).Value
Cells(i, 26).Value = Right(s, Len(s) - 9)
Next
End Sub

--
Gary's Student


"gmoexcel" wrote:


I created a macro to delete the first 9 characters of a cell in a
particular column, now I want the macro to work on the rest of the
cells in that column down to cell 650. How do I do this??


--
gmoexcel
------------------------------------------------------------------------
gmoexcel's Profile: http://www.excelforum.com/member.php...o&userid=23324
View this thread: http://www.excelforum.com/showthread...hreadid=509496