StargateFan wrote in message . ..
On Tue, 8 Jun 2004 07:05:45 -0700, "Bridget"
wrote:

[snip]

Is there a way to get the coding with no word wrap so that it works,
Fred (or anyone)?

Can anyone suggest what to do about the word wrap? I've still not
successfully gotten this code to work as I suspect there may be
incorrect syntax due to word wrap.

Thank you!! :oD

"From: Fred_is_stuck < (Fred_is_stuck.17ilo8@excelforum-
nospam.com)
Subject: VB coding for showing "find" dialogue
box?

[snip]

hi there Stargatefan,

I use this coding in my spreadsheets..... it finds every
instance of
what im looking for on a sheet without fail.... if the
data exists that
is lol.

I can't take credit for this coding and I can't give
credit to the
original coder as I don't know whom that was.

Hope it is of use to you.

you'll just need to copy it to a module


sub findthis()
Dim MyValue, MyFindNext
[A1].Select
MyValue = InputBox("Type in what you are Searching
for.", "Search
for...")
On Error GoTo err_Trap
Cells.Find(What:=MyValue, After:=ActiveCell,
LookIn:=xlFormulas,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False).Activate
MyFindNext = vbYes
Do Until MyFindNext < vbYes
MyFindNext = MsgBox("Want to search for " & MyValue & "
Again?", _
vbYesNo, "Find Next")
If MyFindNext = vbNo Then
Exit Sub
End If
Cells.FindNext(After:=ActiveCell).Activate
Loop
On Error GoTo 0
Exit Sub
err_Trap:
If Err.Number = 91 Then
MsgBox "Awwww Sorry couldn't find " & MyValue & " anywhere
on
this sheet :o( ", , "Totally Unsuccessful search"
Else
MsgBox Err.Number & ": " & Err.Description
End If
End Sub

[snip]