Searching in an excel spreadsheet

[bjonbon]

I need to find a better way to search for text in a spreadsheet (besides Ctrl-F). I tried the following, but I don't like it, because it highlights the area it is searching. Please let me know if you have any better solutions.
Sub searchsheet()
Dim searchthis As String
'Opens box and ask what do they want to search
searchthis = InputBox("Type in a keyword.", "Search")
'Tells where to search
Columns("A:I").Select
'and then search in them whatever the user entered:
Selection.Find(What:=searchthis, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
'if found go to first found
'if not found show message box saying it cannot be found


End Sub

Thanks