Hi,

I am trying to save my part using a Tool Number in "Summary Information, Configuration Specific" but I cant get this Macro to work, it only saves as "TN".

Sub main()

Dim swApp As SldWorks.SldWorks

Dim SWmoddoc As SldWorks.ModelDoc2

Dim partnumber As String

Set swApp = Application.SldWorks

Set SWmoddoc = swApp.ActiveDoc

partnumber = SWmoddoc.CustomInfo("ToolNumber")

If (SWmoddoc.GetType = swDocPART) Then

    SWmoddoc.SaveAs ("TN" + partnumber + ".sldprt")
  

ElseIf (SWmoddoc.GetType = swDocASSEMBLY) Then

     SWmoddoc.SaveAs ("TN" + partnumber + ".sldasm")
    
ElseIf (SWmoddoc.GetType = swDocDRAWING) Then

     SWmoddoc.SaveAs ("TN" + partnumber + ".slddrw")

End If

End Sub

Please Help!!!!