When trying to change the views I get an error at Part.ViewDisplayShadedWithEdges.  See code below.

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Part.ViewDisplayShaded
Part.ViewDisplayHiddenremoved
Part.ViewDisplayHiddengreyed
Part.ViewDisplayWireframe
Part.ViewDisplayShadedWithEdges
End Sub

Why is there an error only at that line?  It will display the image as the 4 others but not with shaded with edges.  Anyone know why or how to display with shaded edges?

Thanks,

Jaime