Find any letters present in a range - an example

A

aztecbrainsurgeon

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
 
G

Guest

Post really crappy code, expect it to be commented on. the purpose of the
forum is to help people, not provide them problematic examples.

Or are you creating your own Archive of shame?

Talk about egos - what is your purpose??? :-(
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA set thick borders around non empty cells in range 0
Seaching an excel sheet 1
For Next loop 2
Object range failed 1
Restricting Cell entry to certain letters 7
counting the first letters or first 2 letters in strings 1
Clear a "moving" range offset from Target 31
auto convert to upper case 1

Top