El problema viene en la celda de nºfactura necesitaria que incrementase el valor en uno cuando guarde la factura
Mira esto es lo que he leido por ahy pero es para exel
Private Sub Workbook_Open()
Dim nombre As Variant
numero = Range("a1").Value
ruta = "c:\mis documentos\facturas\" & numero & ".xls"
ActiveSheet.Select
ActiveSheet.Copy
ActiveWorkbook.Close True, ruta
Range("a1").Value = numero + 1
End Sub
y claro esto es para cada vez que habras el documeto a mi me interesaria que cambiara al guardar el documento.