You don't like the default search dialog?

Sub look()
Dim whatwant As String
whatwant = InputBox("Choose Criteria" & Chr(13) _
& "Wildcards such as *Milly* can be used")
'do things with whatwant
End Sub


Gord Dibben MS Excel MVP

On Mon, 11 Aug 2008 11:33:52 +0100, "MillyD"
wrote:

Is there anyway to add a search box to an excel sheet,, similar to "find and
replace" pop up search box

Regards