I have all of the other parts of this code working and it makes the layout for each page right but it makes a new drawing file for every object however I want it to make a new sheet on the drawing file of the top assembly that is outside of the loop.

Here is my code:

Option Explicit
Dim swSheet As SldWorks.Sheet
Dim swView As SldWorks.View
  Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolea