Looking for Macro to remove end degree names

[JDeMaro22]

Hello everyone,

I'm looking for a macro I can run that will remove all doctor degrees from the end of their names in a list. For example removing MD, OD, DO, ARNP etc. I've compiled a list in the Remove tab of all the degrees I would like removed from Column A in "Paste Data Here!". Hopefully this is achievable.

Thank you very much

EileensData.xlsx

[HansV]

Try this macro:

Code: Select all

Sub RemoveSuffixes()
    Dim wshData As Worksheet
    Dim wshRemove As Worksheet
    Dim rngRemove As Range
    Application.ScreenUpdating = False
    Set wshData = Worksheets("Paste Data Here!")
    Set wshRemove = Worksheets("Remove")
    With wshRemove
        For Each rngRemove In .Range(.Range("A2"), .Range("A1").End(xlDown))
            wshData.Range("A:A").Replace What:=" " & rngRemove.Value, _
                Replacement:="", LookAt:=xlPart, MatchCase:=True
        Next rngRemove
    End With
    Application.ScreenUpdating = True
End Sub

[JDeMaro22]

Amazing, thank you Hans