How do I load the sheet format?

Dim swApp As SldWorks.SldWorks

Dim swDoc As SldWorks.ModelDoc2

Dim var As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swDoc = swApp.ActiveDoc

????????????????????SetSheetFormatName ("C:\Vault\Templates\D-Sheet.slddrt")

End Sub