Help with SaveAs method

[mv8167]

On my SaveAs line, I get a Run Error of :

SaveAs method of Workbook class failed

Function file: O:\QTP Tests\NightlyRegressionTesting\Tests\LibraryImageAccessFunctions.qfl
Line (1250): " objExcel.ActiveWorkbook.SaveAs(FilePath) 'Use the SaveAs method if the file has never been saved before"

My code:

Code:

Public Function SaveOrSaveAsExcelSheet (FilePath, objExcel) Set objFso = CreateObject("Scripting.FileSystemObject") bFileExist = objFso.FileExists(FilePath) objExcel.Visible = True objExcel.DisplayAlerts = False If Not bFileExist Then objExcel.ActiveWorkbook.SaveAs(FilePath) 'ERROR ON THIS LINE Else objExcel.ActiveWorkbook.Save End If objExcel.DisplayAlerts = True objExcel.ActiveWorkbook.Close objExcel.Quit Set objExcel=Nothing Set objFso=Nothing End Function

Any ideas on why?

thx