Hi,

I'm trying to use this bit of code as part of a larger macro, running it on SW 2010:

     Option Explicit

     swApp As SldWorks.SldWorks
     swModel As SldWorks.ModelDoc2
     Dim swAssembly As SldWorks.AssemblyDoc
     Dim vViewName As Variant
     sViewName As String
     Dim i As Long

     Sub main()

     Set swApp = Application.SldWorks
     Set swModel = swApp.ActiveDoc
     Set swAssembly = swModel

     Debug.Print "Number of exploded views created: " & swAssembly.GetExplodedViewCount

but I get error 438: "Object doesn't support this property or method".

How can I correct this?