Function GetText(Cell As Range) As String
 Dim LenStr As Long
 For LenStr = 1 To Len(Cell)
  Select Case Asc(Mid(Cell, LenStr, 1))
  Case 65 To 90
   GetText = GetText & Mid(Cell, LenStr, 1)
  Case 97 To 122
   GetText = GetText & Mid(Cell, LenStr, 1)
  End Select
 Next
End Function