VBA macro to clean and format phone numbers

phone_clean.bas

Sub PHONECLEAN()
    Dim rngActiveRange As Excel.Range
    Set rngActiveRange = Selection
    rngActiveRange.Select
    
    ' REMOVE ALL NON-NUMERICAL CHARACTERS
    Selection.Replace What:=".", Replacement:=""
    Selection.Replace What:="-", Replacement:=""
    Selection.Replace What:=" ", Replacement:=""
    Selection.Replace What:="(", Replacement:=""
    Selection.Replace What:=")", Replacement:=""
    
    'DELETE LEADING 1 IF IT IS PRESENT
    For Each x In rngActiveRange
        If Len(x.Value) = 11 Then
        x.Value = Right(x.Value, 10)
        End If
    Next
    
    'FORMAT IT TO LOOK LIKE A PHONE NUMBER
    Selection.NumberFormat = "[<=9999999]###-####;(###) ###-####"
End Sub