Foro de Excel

Buenos días Abraham,

Tengo una platilla de excel para facturas, con macros. Me gustaría modificar los primeros números de las facturas, es decir ahora me pone el número F000 y querría poner F20060000 y luego que el contador fuera numerando las facturas, 1, 2, 3 ... he tratado de modificalo pero no funciona. Abajo te pongo todas las macros de esta hoja:

Option Explicit
Const strRuta As String = "C:FacturasFormacion" 'Ruta donde se guardarán las facturas (poner la que se desee).
Dim strNombreLibro As String

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Static blnRecursiva As Boolean
    If blnRecursiva Then Exit Sub
    If Me.Path <> "" Then Exit Sub
   
    Dim intRespuesta As Integer
   
    intRespuesta = MsgBox(prompt:="¿Desea salir sin guardar esta factura?" & vbNewLine & vbNewLine & "<Sí> para cerrar el libro sin guardarlo. " & vbNewLine & "<No> para guardar la factura como " & strNombreLibro & ".xls y cerrar el libro." & vbNewLine & "<Cancelar> para volver al libro sin guardarlo.", Buttons:=vbYesNoCancel + vbQuestion)
    If intRespuesta = vbYes Then
        Cancel = True
        blnRecursiva = True
        Me.Close savechanges:=False
    ElseIf intRespuesta = vbNo Then
        Application.EnableEvents = False
        Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
        Application.EnableEvents = True
    ElseIf intRespuesta = vbCancel Then
        Cancel = True
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Me.Path <> "" Then Exit Sub
    Application.EnableEvents = False
    Me.SaveAs Filename:=strNombreLibro, FileFormat:=xlWorkbookNormal
    Application.EnableEvents = True
    Cancel = True
    ActiveWindow.Caption = strNombreLibro
End Sub

Private Sub Workbook_Open()
    If Me.FileFormat = xlTemplate Or Me.Path <> "" Then Exit Sub
   
    Dim fsB As FileSearch
    Dim intNuevoNúmero As Integer
    Set fsB = Application.FileSearch
                                               
    With fsB
        .NewSearch
        .LookIn = strRuta
        .SearchSubFolders = False
        .Filename = "FactF*.xls"
        If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderDescending) = 0 Then intNuevoNúmero = 1 Else intNuevoNúmero = Val(Mid(.FoundFiles(1), Len(.LookIn) + 7, 4)) + 1
    End With
       
    Me.Worksheets("FACTURAS Y PRESUPUESTOS").Range("C19") = "F" & Right("000" & intNuevoNúmero, 4) 'El número de factura se pondría en A1
    strNombreLibro = strRuta & "FactF" & Right("000" & intNuevoNúmero, 4)
    ActiveWindow.Caption = strNombreLibro & " - Sin guardar"
   
    Set fsB = Nothing
End Sub

Espero que puedas ayudarme, la plantilla no la he hecho yo, me la paso un amigo, que no sabe como solucionar este problema.

Mil gracias y felices fiestas

Amaia Echarri