The following is the code which I have written for pack and go.Even after changing the file name .There is no filename change.

Dim swApp As SldWorks.SldWorks

Dim swmodel As SldWorks.ModelDoc2

Dim swpack As SldWorks.PackAndGo Dim err As Long

Dim war As Long Dim status As Variant

Dim bool  As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swmodel = swApp.ActiveDoc

Set swpack = swmodel.Extension.GetPackAndGo

bool = swpack.SetDocumentSaveToNames("C:\Users\pan\Desktop\newpart.SLDPRT")

status = swmodel.Extension.SavePackAndGo(swpack)

End Sub

Regards

Abilash