Option Explicit

' найти все цифры, стоящие или после знака "[" или после последовательности ";пробел".
Sub findmeplease()
Dim i%, s$
With ThisDocument.Range.Find
    .MatchWildcards = True
    .Text = "[0-9]@"
    Do While .Execute
        .Parent.Select
        Selection.Start = Selection.Start -  2 
        s = Left(Selection.Text,  2 )
        If s = "; " Or Right(s,  1 ) = "[" Then _
            i = i +  1 
    Loop
End With
Selection.Collapse wdCollapseEnd
If i >=  5  And i <=  20  Then
    s = "й"
Else
    Select Case i Mod  10 
        Case  1 : s = "е"
        Case  2 ,  3 ,  4 : s = "я"
        Case Else: s = "й"
    End Select
End If
MsgBox "найдено " & i & " совпадени" & s, , "поиск по шаблонам '\[[0-9]@' и '(; )[0-9]@'"
End Sub

Sub re_findcell()
' не отрбатывает, как ожидалось
' паттерн по метке pat1 не находит
' паттерн по метке pat2 находит трижды...
Dim re
Dim c
    Set re = CreateObject("vbscript.regexp")
    With Worksheets( 1 )
        .[a3] = "1) скукотища"
        .[a4] = "2) респектскукотища"
        .[a5] = "3) эскуэльскукотища"
    End With
    're.Global = True
    're.MultiLine = True
pat1:    re.Pattern = "\bскукотища"
pat2:    're.Pattern = "\Bскукотища"
    For Each c In Worksheets( 1 ).[a3:a5].Cells
        If re.test(c.Value) Then _
            MsgBox c.Address(, , ,  1 )
    Next c
    
    Set c = Nothing
    Set re = Nothing

End Sub

Dim r as Range, w as Worksheet
For Each w in ThisWorkbook.Worksheets
   If r Is Nothing Then Set r = w.Cells Else r = Union(r, w.Cells)
Next w