Application.Dialogs(xlDialogFormulaFind).....HELP!!!!!!

[jason]

I've got the below code:

Sheets("Data").Activate
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show "Hello"

So when you go onto the sheet "Data" the find diallog box comes up
with "Hello" in it.
There are loads of instances of "Hello" on the Data sheet - how can I
modify the above code, so that when the macro is run the first
instance of Hello has already been found?

Any help greatly appreciated

Jason

 

[Tom Ogilvy]

Dim rng as range
Sheets("Data").Activate
Cells.Select
set rng = Cell.Find("Hello")
if not rng is nothing then
rng.Select
Application.Dialogs(xlDialogFormulaFind).Show "Hello"
end if

 

[jason]

Nice one Tom!
I ended up using:

Dim rng as range
Sheets("Data").Activate
Cells.Select
Set rng = Cells.Find("Hello")
If Not rng Is Nothing Then
rng.Activate
Application.Dialogs(xlDialogFormulaFind).Show "Hello"
End If

I just changed 'rng.Select' to 'rng.Activate' so that when the user
hits the find button it will go to the next instances of "hello".

Thanks again for the help
Jason