Пустой ли массив ячеек с формулами?

[motorway]

Как проверить, пуст ли массив ActiveSheet.Cells.SpecialCells(xlCe llTypeFormulas)?

Напр., такое

If (ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) Is Nothing) Then MsgBox ("пуст")

дает ошибку "Не найдено ни одной ячейки, удовлетворяющей указанным условиям".

[SAS888]

дает ошибку "Не найдено ни одной ячейки, удовлетворяющей указанным условиям".

Это как раз и говорит о том, что на активном листе нет ячеек, содержащих формулы. Корректно проверить можно так:

Sub Test()
    Dim x As Range: On Error Resume Next
    Set x = Cells.SpecialCells(xlCellTypeFormulas)
    If Err = 0 Then
        MsgBox "На актианом листе есть формулы."
        x.Select
    Else
        MsgBox "На актианом листе формул нет."
        On Error GoTo 0
    End If
End Sub

Если же требуется проверить то, что все ячейки, содержащие формулы пусты, то можно воспользоваться следующим:

Sub Test2()
    On Error Resume Next
    If Cells.SpecialCells(xlCellTypeFormulas).Text = "" Then MsgBox "Пусто"
    On Error GoTo 0
End Sub