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