למרות שנעזרתי רבות במאקרו שהבאת כאן לעיל, עדיין, בשביל קובץ בודד שחוברת העבודה שלו פתוחה חיפשתי פיתרון.
(כיוון שהנושא נפתח כאן אני משתף אותו למקרה ומאן דהו יחפש ג"כ תשובה לשאלה הפותחת של האשכול)
Sub Macro2()
' שמירה בשם, אותו שם, אותו נתיב קובץ, החלפת שם הסיומת, החלפת הפורמט
ActiveWorkbook.SaveAs Replace(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, ".csv", ".xlsx"), 51
End Sub