Запрет печати при неполном заполнении ячеек

[Вова60]

Здравствуйте, до куда смог написал дальше не получается , возможно не туда иду. Требуется чтобы при печати листа проверялось все ли ячейки в определённом диапазоне заполнены. Приложенный макрос это делает но в итоге надо заполнить весь диапазон, а требуется проверять в зависимости от начала заполнения следующей строки скажем в столбце А., и с возможностью без особых проблем менять в макросе проверяемый диапазон и условия. Сам то понял что написал?

[Вова60]

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Rng As Range, rCell As Range
d = Cells(Rows.Count, 1).End(xlUp).Row
    Set Rng = Range(Cells(d, 15), Cells(d, 21))
    For Each rCell In Rng
        If IsEmpty(rCell) Or rCell = 0 Then
            MsgBox "Лист печататься не будет, не заполнена ячейка " & rCell.Address(0, 0), 64, "Для сведения"
            Cancel = True
            Exit For
            End If
    Next
    End Sub
Никто не отозвался. Вот вариант, вроде работает. Поправьте если есть где то не явные просчёты