saving a file using a macro

Sub SaveAs()
Dim myFile As String
On Error Resume Next
myFile = ActiveSheet.Range("E5").Value & " " & ActiveSheet.Range("E11").Value
FileSaveName = Application.GetSaveAsFilename("g:/lending/tracking/funding/stored worksheets/" & myFile, "Microsoft Excel Workbook (*.xls),*.xls")


If FileSaveName = False Then
MsgBox "The file cannot be saved"
Exit Sub
Else
ActiveWorkbook.SaveAs Filename:=myFile
End If


End Sub

'---------------------------------------------------------------------------------------
' Module    : Module1
' DateTime  : 09/01/2006 08:25
' Author    : Roy Cox (royUK)
' Web site  : [url]www.excel-it.com[/url]
' Purpose   :
'---------------------------------------------------------------------------------------
Option Explicit


Sub SaveFile()


    Dim tPath As String, sFile As String
    tPath = "g:/lending/tracking/funding"
    sFile = Sheet1.Range("e5").Value & Sheet1.Range("e11").Value




    ActiveWorkbook.SaveAs Filename:= _
                          tPath & sFile & ".xls", FileFormat _
                          :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
                          False, CreateBackup:=False
End Sub