[caudillo]

Την καλησπέρα μου σε όλους.
Συνεχίζοντας το ψάξιμο μέσω internet βρήκα - και προσπάθησα να προσαρμόσω - τον παρακάτω κώδικα για να πετύχω αυτό που θέλω:

Private Sub CommandButton2_Click()
Dim path As String
Dim invno As String
Dim fname As String

path = "C:\Users\Κώστας\Desktop"
invno = Range("C11")
fname = invno & " - " & Range("A1")

Application.DisplayAlerts = False

ActiveWorksheet.Copy
ActiveSheet.Shapes("CommandButton2").Delete

With ActiveWorksheet
.SaveAs Filename:=path & fname, FileFormat:=51
.Close
End With

ThisWorkbook.Save

Application.DisplayAlerts = True

End Sub

Ότι προσαρμογές όμως κι αν προσπάθησα να κάνω, έπαιρνα πάντα διάφορα μηνύματα λάθους, πχ. run-time error 5, run-time error 424 κ.λ.π.
Μήπως έχει κάποιος να προτείνει κάτι;
Ευχαριστώ.