Quiero saber en el código VBA Excel, ¿Cuál es la ruta y nombre?

Hola DAM

He estado revisando este código.

Tengo en A1 C:\0 y en A18 el conteo (22)

En este tu código, ¿cual es la ruta y nombre del archivo PDF?

LO ejecuto y me pregunta si "¿Desea autoincrementar?" le digo SI, PERFECTO.

Veo que sigue y me pregunta si quiero guardar en PDF, SI y veo que en C:\0 no aparece ningún archivo PDF llamado Factura 23.PDF

Podrías aclarar sobre esto?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Act.Por.Dante Amor
    continuar = vbYes
    respuesta = MsgBox("¿Desea autoincrementar?", vbYesNoCancel)
    Select Case respuesta
        Case vbYes
            Range("A18").Value = Range("A18").Value + 1
        Case vbNo
            'No incrementa
        Case vbCancel
            'se cancela guardar el PDF y la impresión
            Cancel = True
            Exit Sub
    End Select
    '
    respuesta = MsgBox("¿Desea guardar como PDF?", vbYesNoCancel)
    Select Case respuesta
        Case vbYes
            ruta = Cells(1, 1).Value
            nombre = Cells(18, 1).Value & ".pdf"
            If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
            completo = ruta & "factura" & nombre
            If Dir(completo) = "" Then
                guardarpdf completo
            Else
                reescribir = MsgBox("La factura ya existe con el nombre: " & vbCr & vbCr & _
                    completo & vbCr & vbCr & "Desea sobreescribir", _
                    vbQuestion + vbYesNoCancel, "VALIDA ARCHIVO")
                Select Case reescribir
                    Case vbYes
                        guardarpdf completo
                    Case vbNo
                        'Se cancela el pdf pero continúa la impresión
                    Case vbCancel
                        'se cancela guardar el PDF y la impresión
                        Cancel = True
                        Exit Sub
                End Select
            End If
        Case vbNo
            'Se cancela el pdf pero continúa la impresión
        Case vbCancel
            'se cancela guardar el PDF y la impresión
            Cancel = True
            Exit Sub
    End Select
    ThisWorkbook.Save
End Sub
'
Sub guardarpdf(completo)
'Por.Dante Amor
    Application.EnableEvents = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=completo, _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Application.EnableEvents = True
End Sub

Gracias antecipadas