Save As issue

[rajpes]

'assuming your filepath argument has full path fallowed by \filename.xls in the end

Code:

Public Function SaveOrSaveAsAndCloseExcelSheet (original,new)
Set objFso = CreateObject("Scripting.FileSystemObject")
bFileExist = objFso.FileExists(original)

If Not bFileExist Then
set wb=objExcel.Workbooks.open(original)
wb.saveas(new)
else
wb.save
End If

wb.close
Set wb=nothing
Set objExcel=Nothing
Set objFso=Nothing

End Function