Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
longstatus = Part.ImportDiagnosis(True, False, False, 0)
Wow thanks for the Quick response.
Thanks for the help link and I will give the code a try.
That did the job thanks Ulf !