title: Excel VBA - Why is my "Save As" not working?
body: <p>I have a VBA script in place so that if a cell is blank then Excel will prompt the file to be saved. </p>
  
  <p>This is ensure that the template is not altered. However, when the user clicks save in the "Save As" dialogue box, the file does not save. </p>
  
  <p>This is the code I am using:</p>
  
  <pre><code>If Worksheets("Input").Range("E2").Value = "" Then
      Application.EnableEvents = False
      Application.GetSaveAsFilename InitialFileName:="\\ac35542\Problem Management\Action Plans\ChangeMe.xlsm", FileFilter:="Excel Macro-Enabled Workbook (*.xlsm),*.xlsm"
      Application.EnableEvents = True
      MsgBox "Please ensure fill in the Problem Reference Number, Problem Title, and Select a Contract", vbExclamation, "PR Reference &amp; Title"
      Worksheets("Input").Select
      Range("E2").Select
  End If
  </code></pre>
  
  <p>Why is the file not saving?</p>