Hi Brian,
Assuming that you have data in column A and that the first cell is A1, the
following macro should do the job. It will do nothing if there are four or
fewer characters in a cell.

Option Explicit
Dim CountRows As Double
Dim Iloop As Double
Sub DeleteCharacters()

'Turn off warnings, etc.
Application.ScreenUpdating = False
Application.DisplayAlerts = False

CountRows = Cells(Rows.Count, "A").End(xlUp).Row
For Iloop = 1 To CountRows
If Len(Cells(Iloop, "A")) 4 Then
Cells(Iloop, "A") = Right(Cells(Iloop, "A"), _
Len(Cells(Iloop, "A")) - 4)
End If
Next Iloop

'Turn off warnings, etc.
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
--
Ken Hudson


"Brian" wrote:

I am trying to create the simplest of macros. I just want to delete the first
4 characters of a cell, and then have it repeat that process for about 350
cells. Everytime I hit record and give it a name and hot key. I preform the
steps of deleting 4 characters in a cell and hit enter to goto the next cell.
I hit stop recording and then try to run the macro, which at this point does
not work.. Can ANYONE HELP. What am I doing wrong

Thanks
Brian