No question here, just a procedure for the archive and (apparently) a
victual for Senior Oh's ego feed. :)

Sub FindLetters()

'Evaluate all cells in selection that to find cells that
'contain standard English language alphabet letters
Dim cell As Range
For Each cell In Selection

If UCase(cell.Value) Like "*" &
"[ABCDEFGHIJKLMNOPQRSTUVWXYZ]" & "*" Then
MsgBox "Cell " & cell.Address & " contains a letter!"

End If
Next cell
End Sub


Find letters in a cell
Find any letters in a selection
evaluate for presence of letters