To pytanie zostało zredagowane z powodu długich komentarzy i aktualizacji proponowanych odpowiedzi.

Zgodnie z żądaniem tutaj jest moduł 13;

Sub SaveInFormat()
Application.DisplayAlerts = False
Workbooks.Application.ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data\" & Format(Date, "yyyymm") & "DB" & ".xlsx",   leFormat:=51
Application.DisplayAlerts = True
End Sub

Są też problemy z obsługą błędów, wiem, że się z tym pomyliłem, ale bardziej interesuje mnie ustalenie funkcji zamykania w chwili, gdy do niej wejdę. Oto kod obsługi błędów, który wymaga trochę pracy

Sub test()

Dim wk As String, yr As String, fname As String, fpath As String
Dim owb As Workbook

wk = ComboBox1.Value
yr = ComboBox2.Value
fname = yr & "W" & wk
fpath = "C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data"
owb = Application.Workbooks.Open(fpath & "\" & fname)
On Error GoTo ErrorHandler:
ErrorHandler:
If MsgBox("This File Does Not Exist!", vbRetryCancel) = vbCancel Then Exit Sub Else Call Clear

'Do Some Stuff

Call Module13.SaveInFormat

owb.Close

to jest twój kod testowy plus moja zmiana ścieżki i nazwy pliku