[VBA] Workbook operation including Create, Open and Close

WorkbookOperation.bas

'Create .xlsb file
Public Function RunWorkbookCreate(urlHistData As String, Optional CloseDirectly As Boolean = True) As Workbook
    Dim newWbook As Workbook
    
    Set newWbook = Workbooks.Add
    newWbook.SaveAs Filename:=urlHistData, FileFormat:=50
    Debug.Print "WbCREATE: " & newWbook.FullName
    
    Set RunWorkbookCreate = newWbook
    
    If CloseDirectly Then
        Call FUNC.RunWorkbookClose(newWbook)
    End If
End Function

'Closing ActiveWorkbook
Public Sub RunWorkbookClose(ActiveWbook As Workbook)
    Debug.Print "WbCLOSE: " & ActiveWbook.FullName
    ActiveWbook.Close True
End Sub

'Open Workbook based on fullpath
Public Function RunWorkbookOpen(urlHistData As String) As Workbook
    Workbooks.Open urlHistData
    Debug.Print "WbOPEN: " & urlHistData
    Set RunWorkbookOpen = ActiveWorkbook
End Function