Sub EkstraktSamoTeksta()
     ActiveCell.FormulaR1C1 = ExtraktSamoTeksta(Application.InputBox(prompt:="Select any range", Title:="Demo", Type:=8))
End Sub
'
'
Public Function ExtraktSamoTeksta(Raspon As Range)
    
    Dim intChrCnt As Integer
        For intChrCnt = 1 To Len(Raspon)                                       ' Defines number of iteration, according to string length
            If IsNumeric((Mid$(Raspon, intChrCnt, 1))) = False Then            ' For each character, if it is no number,
                                                                            ' that character is added to the result
                ExtraktSamoTeksta = ExtraktSamoTeksta & Mid$(Raspon, intChrCnt, 1) ' Finally function result is a string of extracted
                                                                            ' textutal characteres
            End If
        Next                                                                ' Looping throuh all the characters in the string
     Set rng = Nothing                                                      ' contained in the cell
End Function