title: Excel VBA Open workbook, perform actions, save as, close
body: <p>This question has been edited due to lengthy comments and updates from proposed answers.</p>
  
  <p>As requested here is module 13;</p>
  
  <pre><code>Sub SaveInFormat()
  Application.DisplayAlerts = False
  Workbooks.Application.ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data\" &amp; Format(Date, "yyyymm") &amp; "DB" &amp; ".xlsx",   leFormat:=51
  Application.DisplayAlerts = True
  End Sub
  </code></pre>
  
  <p>Also there are issues with the errorhandling, I know I've gone wrong with it but I'm more interested in fixing the close function at the moment before I get into it. Here is the error handling code that needs some work</p>
  
  <pre><code>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 &amp; "W" &amp; wk
  fpath = "C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data"
  owb = Application.Workbooks.Open(fpath &amp; "\" &amp; 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
  </code></pre>
  
  <p>this is your test code plus my changing of the file path and name</p>