"Valli" wrote in message
oups.com...
Sub FindSheet()
Dim i As Integer
Name = InputBox("Please Enter the Name of the Worksheet to Find",
"SheetSearch", vbOKOnly)
For i = 1 To Worksheets.Count
If Application.ActiveWorkbook.Sheets(i).Name = Name Then
Application.ActiveWorkbook.Sheets(i).Select
End If
Next
End Sub

Try this one
-------

Tried, not work. when type name in input box and run, stay with no changes.
The main idea is make searching for worksheet name in spreadsheet much more
handy than gives us built-in Excel tool 'Find and Replace' that can easily
search within Sheet and Workbook, by Rows or by Column. As i understand,
custom search need be more handy and more simple compare with built-in one.

Regards,
S.