search a word inside a workbook and open that sheet as active sheet

How to search for a word inside a workbook and open that sheet as active sheet

Requirement:

The user wants to search a word inside a workbook and open that sheet as active sheet.

Solution:

Code:

Sub ActivateSheet()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, fnd As Range, response As String
    response = InputBox("Enter the word to search.")
    If response = "" Then Exit Sub
    For Each ws In Sheets
        Set fnd = ws.UsedRange.Find(response, LookIn:=xlValues, lookat:=xlPart)
        If Not fnd Is Nothing Then
            ws.Activate
            Exit For
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Mumps.