If a value exists in a range

[Guest]

I am trying to have VBA evaluate the range C3:C100 (name defined as
Type_of_change), and if the value "TEST" exists in any one of those cells,
call Macro A, if not, Call Macro B. How do I get VBA to evaluate the range?

Thanks
Jeff

 

[Guest]

Sub jeffbert()
Set r = Range("C3:C10")
wellisit = False
For Each rr In r
If InStr(rr.Value, "TEST") > 0 Then
wellisit = True
Else
End If
Next
If wellisit Then
Call macroa
Else
Call macrob
End If
End Sub

 

[Tom Ogilvy]

if application.Countif(Range("C3:C100"),"Test") > 0 then
MacroA
else
MacroB
End if

if test is not the sole value of the cell then

if application.Countif(Range("C3:C100"),"*Test*") > 0 then
MacroA
else
MacroB
End if