Searching and unhiding specific worksheets using VB

[jackmceachen]

I have five worksheets hidden in my workbook. All of these worksheets have either "Yes" or "No" written in cell C4. (3-yes, 2-no)

I also have a search bar in the form of a textbox and a command button.

I want to be able to type "No" in the textbox, click the command button and have the pages with "No" in cell C4 to unhide.

I have no clue as to how I could do this, and I'm somewhat new to Excel, so if you could explain to me exactly what to write in the VB on the command button I would be very grateful.

Some screenshots if necessary:
Sheet1 (yes): Gyazo - ce85d71bc03cd2ceaa1030e22445800f.png
Sheet2 (no): Gyazo - 65f876d6e7d749bd1ca25ad957fbda99.png
Sheet3 (yes): Gyazo - 0cb442f1d34e7d744884f73e1afe2646.png
Sheet4 (yes): Gyazo - 6f0ce150322208fd93dc5fc6f4f66481.png
Sheet5 (no): Gyazo - 772f48f8a82e53713794e6655fe56fca.png
master: Gyazo - 1b71470f3de47cef347050588bca819c.png

 

[VBA Geek]

Sub de()
Dim V As Variant
Dim RT As String
RT = InputBox("Yes or No?")
If InStr("NOYES", UCase(RT)) = 0 Then MsgBox "Invalid input": Exit Sub
For Each V In Array("D", "E", "K", "W") ' D E K W represent the names of of your worksheets
    With Worksheets(V)
        If UCase(.Range("C4").Value) = UCase(RT) Then
            .Visible = True
        Else
            .Visible = False
        End If
    End With
Next
End Sub

 

[jackmceachen]

Right, this is what I've entered into VB: Gyazo - a8efb9bd5e4d7fbfb9f86856e2cded6a.png

When I press the button, nothing happens, not even the debugger appears.

Although I'm fairly (very) sure I've entered the code wrong, could you write out exactly what I need for it to work.

(Basically if I copy and paste the code into VB, click the button, it'll work)

(Apologies for being so basic)

 

[VBA Geek]

you have to enter it between privatesub_commandbutton1_click() and end sub

exclude from my code the lines

Sub de()

End Sub

 

[jackmceachen]

Sweet it worked! Thank you very much.