[Tasos]

Σωτήρη,
κατάλαβα ότι θέλεις κάθε φορά που πατάς το κουμπί να γίνεται αντικατάσταση του αρχείου με το ίδιο όνομα (αν υπάρχει) στο σκληρό δίσκο.

Δεν κατάλαβα όμως: Θέλεις να αποθηκεύσεις όλα τα φύλλα εργασίας του βιβλίου σε *.pdf
ή θέλεις να αποθηκεύεις το βιβλίο σε μορφή Excel;

Για να αποθηκεύεις το βιβλίο σε μορφή Excel χρησιμοποίησε το παρακάτω:

Sub testXL()
    Dim xlFolder As String, wbName As String, ExtName As String, NewName As String
    xlFolder = ThisWorkbook.Path & "\"
    With CreateObject("Scripting.FileSystemObject")
        wbName = .GetBaseName(ThisWorkbook.FullName)
        ExtName = "." & .GetExtensionName(ThisWorkbook.FullName)
        NewName = xlFolder & Format(Date, "dd_mm_yyyy") & "_" & wbName & ExtName
        On Error Resume Next
        If .FileExists(NewName) Then
            .DeleteFile NewName
        End If
    End With
    If Err <> 0 Then
        MsgBox "Σφάλμα: " & Err & vbLf & Err.Description
        Exit Sub
    Else
        ThisWorkbook.SaveAs NewName, ThisWorkbook.FileFormat    ' ? xlnormal
    End If
End Sub

Όσο για την εξαγωγή σε *.pdf θα πρέπει να διευκρινιστεί αν πρόκειται για ένα ή περισσότερα φύλλα.

Εκτός αυτού, ο κώδικας που παρουσιάζεις στο τελευταίο μήνυμα σου περιέχει κάποια σφάλματα.

Τάσος