【VBA】名前を付けて保存｜SaveAs

Public Function SaveAsBook( _
                                        ByVal wb As Workbook, _
                                        ByVal fullPath As String) As Workbook
    Application.DisplayAlerts = False
    wb.SaveAs fullPath
    Application.DisplayAlerts = True
    
    Set SaveAsBook = ActiveWorkbook
End Function