View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett[_4_] Don Guillett[_4_] is offline
external usenet poster
 
Posts: 2,337
Default running a sub when found

Not the best way but it seems to work.

Sub iffound()
On Error Resume Next
If Worksheets("Sheet5").Cells.Find("ff") = "ff" Then MsgBox "Hi"
End Sub

but this also works
Sub iffound()
On Error Resume Next
If Worksheets("Sheet5").Cells.Find("fff") = "ff" Then MsgBox "Hi"
End Sub

and this doesn't
Sub iffound()
On Error Resume Next
If Worksheets("Sheet5").Cells.Find("ff") = "fff" Then MsgBox "Hi"
End Sub

--
Don Guillett
SalesAid Software

"solo_razor" wrote in message
...

hello,

I have an interresting problem. i'm writing a sub that must execute
another sub when the criteria has been met. E.G.
IF worksheetS("test").cells.find("testing") = true then (execute anther
subroutine)

I can't get anything to work.

Regards,

Niek


------------------------------------------------
~~ Message posted from
http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/