Obtenha o valor da célula e use-o como valor MAX para o incremento automático em uma macro

Question

Aumento automático da célula C13 em 1 na impressão. Eu estou usando apenas a célula C13 para auto incremento, mas eu tenho célula E13 = tem um valor vinculado da folha 3. Eu gostaria de ter o valor E13 definido como incremento MAX para C13 no seguinte 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

Nomes de origem e célula editados. Problema é ter a macro para trabalhar no Sheet3 dar um erro de depurador 9.

    

Answer 1

Para evitar aumento além do valor em A15, altere sua adição:

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