Macro to delete first nine characters in a cell for a row of data.

**frebo** · 02-11-2013, 04:06 PM

Example:
I have imported a list of email addresses (6000 rows). The data in each cell looks like this:

email address:[email protected].

I need a macro to delete "email address:_" in each cell (_ being a space).

I tried the macro recorder and cannot get it to work. HELP!

**AB33** · 02-11-2013, 04:13 PM

In which column/s is/are the data to be deleted? I think it would be easier for testing if you could attach a sample book.

**Jakobshavn** · 02-11-2013, 04:16 PM

email address:_

is more than 9 characters.

**frebo** · 02-11-2013, 07:59 PM

I have several different columns with different numbers of characters to delete. I am guessing that i can use the same macro for each column and just change the number of characters to delete. So in the example given, it would be 15.

**Jakobshavn** · 02-12-2013, 09:03 AM

Select the cells you want to fix and run:

Sub AdFixer()
Dim r As Range, V As String, L As Long
For Each r In Selection
    V = r.Value
    L = InStr(V, ":")
    If L <> 0 Then
        r.Value = Mid(V, L + 2, 9999)
    End If
Next
End Sub