Search Worksheets, Conditional Counting?

My workbook is made up of a number of worksheets, A master sheet, which creates new sheets for each work order I enter. Therefore, eventually I will end up with a large number of worksheets that I will have to sort through to find what I need. I put in a command button to allow me to search and hide all of the worksheets that do not match the the work order number I entered. However, if no sheets contain a matching number, then all sheets will be hidden, except for the master sheet. I want to add an exception that pops open a message box if no matches were found and stops the code. I was thinking of doing a conditional count to count all worksheets that match the criteria. If the count = 0, then the message box will open.

Private Sub SearchButton_Click()
Application. ScreenUpdating = False
Dim ws As Worksheet
Dim Search As String
Search = InputBox("Enter work order", "Search Archives", "")
For Each ws In ActiveWorkbook.Worksheets
If ws. Range("D4") <> Search And ws.Name <> "Master" Then
ws.Visible = xlSheetHidden
End If
Next ws
Application.ScreenUpdating = True
End Sub