Find specific letters in a specific range

[huorsa]

What should I do to find specific letters in a specific range and the get the cells that contain the letters I am looking for. Per example: A1 apple
B1 orange
C1 banana

I want to know which cells contain the letter "e" (A1 and B1), get a textbox or something that let me know which cells contain the letter "e".

Hugo

 

[Juan Pablo González]

Use this formula

Function ContainsText(Rng As Range, Text As String) As String
Dim T As String
Dim Cll As Range
For Each Cll In Rng
    If InStr(Cll.Text, Text) > 0 Then
        If Len(T) = 0 Then
            T = Cll.Address(False, False)
        Else
            T = T & "," & Cll.Address(False, False)
        End If
    End If
Next Cll
ContainsText = T
End Function

In VBA use it like

MsgBox ContainsText(Range("A1:A3"),"e")

And in Excel, use like

=ContainsText(A1:A3,"e")