Получить значение из ячейки и использовать его в качестве значения MAX для автоинкремента в макросе

Question

Ячейка C13 автоматически увеличивается на 1 при печати. Я использую только ячейку C13 для автоматического приращения, но у меня есть ячейка E13 = имеет связанное значение из листа 3. Я хотел бы, чтобы значение E13 было установлено как максимальное значение для C13 в следующем VBA:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Long
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogPrinterSetup).Show
With Sheets("Sheet3")
    For i = 1 To .Range("B22").Value
        .Range("C13").Value = .Range("C13").Value + 1
        .PrintOut
    Next i
End With
Application.EnableEvents = True
End Sub

Отредактированный источник и имена ячеек. Проблема в том, что макрос для работы на Sheet3 выдает ошибку отладчика 9.

Answer 1

Чтобы предотвратить превышение значения в A15, внесите изменения в дополнение:

.Range("A4").Value = Min(.Range("A4").Value + 1, .Range("A15").Value)