Try this, does it work for you?
Sub SaveAsFile(filename As String) Dim wb As Workbook Set wb = ActiveWorkbook ' or Workbooks("Book1") wb.SaveAs filename:=filename End Sub