Macro: Finding Text Within Text

[Simon]

I need to determine whether a cell contains a particular string of text, what
is the best function or way of doing this in my macro?

For Example:
I want to know whether cell A1 contains the text "AUA", if it does then I'm
going to execute some code, if it doesn't then I'm going to execute some
other code. I was trying to use the Range.Find method but I had a lot of
trouble with it.

Thanks.

 

[Gary Keramidas]

maybe something simple like this:

Sub test()
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

With ws
If InStr(.Range("A1"), "AUA") Then
MsgBox "found"
End If
End With

End Sub

 

[Per Jessen]

Hi

You don't say if you want a case sensitive function, so I have made it case
sensitive by setting MatchCase=True.

Here's a way to do it:

Set f = Range("A1").Find(what:="AUA", MatchCase:=True)
If f Is Nothing Then
MsgBox "Not found"
Else
MsgBox "Found"
End If

Regards,
Per