Macro para foliar despues de imprimir

No soy experto en macros deseo aprender tengo una Hoja con Formato de Impresión de cheque no lo uso como base de datos, sólo como Formulario de IMPRESIÓN y en la celda F14 tengo el num. De cheque 1052. Es aquí donde quisiera poder aumentar automáticamente sus valor. Despues de imprimir pero que me plasme este numero 1052, en el siguiente que envie sea 1053 y asi sucesivamente, Espero haberme explicado. Este codigo tengo en la hoja

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Poliza").Range("F14").Value = Sheets("Poliza").Range("F14") + 1
End Sub