Hi all i have created a search button that searches my Wb for a sheet name.
The only thing is i need to keep all my sheets hidden that im searching for due to data protection.
I have created the button and it cannot find the hidden sheets.

If possible could somebody please help me format the button to Search all hidden and unhidden sheets for the name entered in the search, and if it does find said sheet to unhide it for me and show me the sheet required.

Here is the code that i currently have and does work for all visible sheets:

'Run from standard module, like: Module1.

Dim ws As Worksheet, Found As Range, rngNm As String
Dim myText As String, FirstAddress As String, thisLoc As String
Dim AddressStr As String, foundNum As Integer

myText = InputBox("Member Name", "Start Search!")

If myText = "" Then Exit Sub

For Each ws In ThisWorkbook.Worksheets
With ws
Set Found = .UsedRange.Find(what:=myText, LookIn:=xlValues, MatchCase:=False)

If Not Found Is Nothing Then
FirstAddress = Found.Address
Do
foundNum = foundNum + 1
rngNm = .Name
AddressStr = AddressStr & .Name & " " & Found.Address & vbCrLf
thisLoc = rngNm & " " & Found.Address

Sheets(rngNm).Select

If myFind = 2 Then Exit Sub

Set Found = .UsedRange.FindNext(Found)

Loop While Not Found Is Nothing And Found.Address <> FirstAddress
End If
End With

Next ws

If Len(AddressStr) Then
MsgBox "Found: """ & myText & """ Found"
Else:
MsgBox "Unable to find your text '" & myText & "' in this workbook.", vbExclamation, "Search Completed!"

End If

Any help would be great thanks

Chris