I have a macro the save the file under the description typed in the Worksheet
"Test" cell "C1"(see below). The description I typed in the cell"C1" is "Top".
The macro is working without problems. However, when I want to open the file
I got the following message:

CANNOT OPEN C:\New Files\Top.sldprt
THE SYSTEM COULD NOT RECOGNIZE THIS FILE

I believe is because I am using "ActiveWorkbook" which is being used for
excel files and the file I want to save as is SoildWorks.
Could you please help me with this matter.

Thanks in advance.
Maperalia


'**** Start Macro****
Sub SaveAs()
Dim WO As String
Dim Progname As String
Dim swApp As Object
Dim ActivePart As Object

WO = Worksheets("Test").Range("C1")
Progname = "C:\New Files\" & WO & ".sldprt"
ActiveWorkbook.SaveCopyAs Progname

End Sub
'**** End Macro****