Макрос Excel поиск по листам в книге с условием

Sub edigun()
Dim s$, ws, i&, j&
s = InputBox("Введите название профессии" & vbLf & vbLf & _
    "Можно использовать знаки подстановки '*', '?' как при поиске", _
    , "*зварник*")
If s = "" Then Exit Sub
ReDim v(0 To Worksheets.Count, 0 To 1) As String
v(0, 0) = "Имеются (А16)"
v(0, 1) = "Требуются (А17)"
On Error Resume Next
For Each ws In Worksheets
    If ws.Range("A16") Like s Then
        i = i + 1
        v(i, 0) = Application.Trim(Split(ws.Range("A4"), ":", 2)(1))
    End If
    If ws.Range("A17") Like s Then
        j = j + 1
        v(j, 1) = Application.Trim(Split(ws.Range("A4"), ":", 2)(1))
    End If
Next
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
[A1] = "Запрос: " & s
With [A3:B3]
    .ColumnWidth = 80
    .EntireColumn.WrapText = True
    .Resize(UBound(v) + 1).Value = v
    .Font.Bold = True
    .Borders(xlEdgeBottom).Weight = xlMedium
End With
End Sub