Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    If swModel Is Nothing Then
        Exit Sub
    End If

    Dim modelTitle As String
    modelTitle = swModel.GetTitle

    swModel.ForceRebuild3 True

    Dim errors As Long
    Dim warnings As Long

    swModel.Save3 swSaveAsOptions_e.swSaveAsOptions_Silent, errors, warnings

    swApp.CloseDoc modelTitle

End Sub