stop a macro if it does not contain

[Wildman]

I have a macro that i would like to NOT to run (or stop) if it does
not contain the word "wildman" in a range A2:A30000 or if there is
no text in that range as well.

Thanks in advance
Wildman

 

[mangesh_yadav]

Private Sub CommandButton1_Click()

If WorksheetFunction.CountIf(Range("A2:A30"), "wildman") < 1 Then
Exit Sub
End If

' continue your code here
End Sub

No need to check if range empty as if "wildman" not there then no need
to run macro.

I have a macro that i would like to NOT to run (or stop) if it does
not contain the word "wildman" in a range A2:A30000 or if there is
no text in that range as well.

Mangesh

 

[d61helix]

nv test it out but shld be correct


Code:
--------------------
sub macro()

For each rngCell in activesheet.range(A2:A30000).cells

if rngCell.value="wildman" then
blnWildman=true
blnNotEmpty=true
exit for
elseif rngCell<>empty then
blnNotEmpty=true
exit for
end if

next rngCell

if blnWildman<>true and blnNotEmpty<>true then
Exit sub
end if

<macro code>

End Sub

 

[Nick Hebb]

OK, am I the only one wondering why the heck you're looking for a
wildman?

 

[William Benson]

No you are not the only one.