With ActiveWorkbook
    Den = Right(Left(.Name, InStrRev(.Name, ".") - 1), 2)
    Mesyac = Right(Left(.Name, InStrRev(.Name, ".") - 4), 2)
    End With
    ' поиск номера ячейки содержащей
    Dim Rngt As Range
    Dim lRow As Long, lCol As Long, sAddress As String
    Set Rngt = Cells.Find("ФО за " & Den & "." & Mesyac, , xlFormulas, xlWhole)
    If Rngt Is Nothing Then
    MsgBox "Название файла должно заканчиваться на МесяцТочкаДень, типа:" & Chr(10) & "                    12.30" & Chr(10) & _
    "          Либо на листе Было в строке 8" & vbCrLf & "                             отсутствует запись: ФО за " & Den & "." & Mesyac
    Exit Sub
    End If
    lRow = Rngt.Row  'строка, где было найдено слово
    lCol = Rngt.Column 'столбец, где было найдено слово
    sAddress = Rngt.Address 'адрес ячейки, где было найдено слово ПЛЮС ДВЕ СТРОКИ как сделать?
    ' sAddress.Offset(2, 0) ' не работает...
    'ActiveSheet.Range("$A$10:$FF$1465").AutoFilter Field:=lCol, Criteria1:="<>"