Read-Only file needs to be Save As to specific folder with Range Name

I have to export excel statements that open as a Read-Only file, then save them with the name in cell A1 to a specific folder... I am getting closer I think, but when I try to run the macro the file does not save.... what have I done wrong?? I am using Excel 2010 and want to save to Excel Workbook or Excel 97-2003 Workbook

Here is my code....

Sub SaveAS()
'
' SaveAs Macro
'
' Keyboard Shortcut: Ctrl+a
'

    ChDrive "H:"
    ChDir "\\mspm1bnas04\westc4"
    fullFileName = Application.GetSaveAsFilename(Range("A1"))
    If Filename <> False Then
        ActiveWorkbook.SaveAS " & fileName"
    End If
End Sub

Thank you!!