Find / Search Function

Posted by Craig Paice on January 31, 2002 3:48 PM

I'm trying right a simple search function that will search an entire workbook for a value in a paticular cell.

If possiable also take you to the result.

Can anyone help.

Posted by Jack in the UK on January 31, 2002 3:56 PM

Hi--
Tyr this put Jack in any cell say D15 used sheet is fine

Put this in module VBA script and run

Sub Find_X()
'Edit JACK to what you want to find.
Cells.Find(What:="JACK", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
End Sub

HTH
Jack

Posted by Craig Paice on January 31, 2002 9:33 PM

You're a star!

Cheers

Craig