Save a Workbook with a Unique Name

Function WorkbookNewNameSaveAs() As Boolean
   On Error GoTo errHandler1
   WorkbookNewNameSaveAs = False

   Set objWorkBook = objExcel.Workbooks.Add
   strNewName = GetNewWorkbookName
   Set objWorksheet = objWorkBook.ActiveSheet

   objWorkBook.SaveAs (strNewName)
   WorkbookNewNameSaveAs = True
   Exit Function
errHandler1:
   WorkbookNewNameSaveAs = False
   MsgBox "WorkbookNewNameSaveAs has failed", _
   vbCritical, "Function Failure"

End Function