Extrair Texto Excel - Separar Texto Excel

[@ExcelEasyBR]

Código VBA mostrado no vídeo:
'-----------------------------------------------------------------------
Function ExtrairTexto(CellRef As String)
Dim TamanhoTexto As Integer
TamanhoTexto = Len(CellRef)
For i = 1 To TamanhoTexto
If Not (IsNumeric(Mid(CellRef, i, 1))) Then Resultado = Resultado & Mid(CellRef, i, 1)
Next i
ExtrairTexto = Resultado
End Function