excel vba 合同号自动编号并递增

Private Sub Workbook_BeforePrint(Cancel As Boolean) '如果在弹出的打印对话框取消了打印，编号仍旧会增加。
    With Sheets("sheet1").[E2] '假设要改变sheet1的E2单元格
        .Value = .Value + 1
        .NumberFormatLocal = """第""000000""号""" '假设合同编号格式为“第xxxxxx号”
    End With
End Sub