Excel Hacks

REMOVE Non-Alphanumeric
Function removeAlpha(r As String) As String
With CreateObject("vbscript.regexp")
    .Pattern = "[^A-Za-z0-9]"
    .Global = True
    removeAlpha = .Replace(r, "-")
End With
End Function
Credit: http://www.mrexcel.com/forum/excel-questions/498357-strip-alpha-characters-string.html#post2460424

Merge Excel files:
Sub GetSheets()
Path = "C:\Users\yyounger\Desktop\weintraub\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
Credit: https://www.extendoffice.com/documents/excel/456-combine-multiple-workbooks.html

Convert UNIX to readable date: =CELL/(60*60*24)+"1/1/1970"