Sub RemoveNonAlphaNum() For Each r In Intersect(ActiveSheet.UsedRange, Columns("B")) vout = "" v = r.Text n = Len(v) For i = 1 To n ch = Mid(v, i, 1) If ch Like "[0-9]" Or ch Like "|" Then vout = vout & ch Next i r.Value = vout Next r End Sub
Sub RemoveNonAlphaNum() For Each r In Intersect(ActiveSheet.UsedRange, Columns("B")) vout = "" v = r.Text n = Len(v) For i = 1 To n ch = Mid(v, i, 1) If ch Like "[0-9]" Or ch Like "|" Then vout = vout & ch Next i r.Value = vout Next r End Sub
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Reply With Quote
