Excel vba
-------------------------------------------------------------------
'Function code to removes numeric or alpha code from a string
'Alt-F11 to involke macro editor
'Point cursor to VBAProject file you want to apply the script
'Click “Insert” – Module
'Copy/paste the below script to the Module
'Close out of the editor.
'Function code is =alphanum(A1,1)


Function AlphaNum(txt As String, Optional Alpha As Boolean = True) As String
With CreateObject("VBScript.RegExp")
    .Pattern = IIf(Alpha, "\d+", "\D+")
    .Global = True
    AlphaNum = .Replace(txt, "")
End With
End Function

-------------------------------------------------------------------
'Format Table format to non-Table

Sub FmtFmTbl()
'
' FmtFmTbl Macro
' Format from Table Format. 2016-02-25
'
'
    Selection.Font.Bold = False
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

-----------------------------------------------------------------------