Put a Combobox on the Sheet and use:


Option Explicit

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Protect Password:=""
'wks.EnableSelection = xlUnlockedCells
Next wks
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_Click()
If Len(ComboBox1.Value) Then
Worksheets(ComboBox1.Value).Activate
End If
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim Sh As Worksheet
With ComboBox1
.Clear
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name < "Inputs" Then
.AddItem Sh.Name
End If
Next
End With
End Sub



"muddan madhu" wrote in message
...
Hi,

I have 3 sheets in a workbook.
All are names.....

I need macro to find in all sheets.

Is this possible ?

Thanks