Function ЕстьПустыеЯчейки() As Boolean
         ' возврат - False, если нет пустых ячеек, или они есть, но пользователь согласен продолжать обработку
         Dim emptyCell As Boolean, cell As Range
         emptyCell = False
         With Sheets("Бар")
             For Each cell In Union(.Range("E29:E35"), .Range("B27"))
                 If IsEmpty(cell) Then
                     emptyCell = True
                     Exit For
                 End If
             Next
         End With
         If emptyCell Then
             emptyCell = ( _
                 MsgBox("Имеются незаполненные данные (" & cell.Address(0, 0) & ")" & vbCrLf & "Продолжить?", vbOKCancel) _
                 = vbCancel)
         End If
         ЕстьПустыеЯчейки = emptyCell
End Function