What you want to do with that box open?
Dim swApp As SldWorks.SldWorks
Dim swDraw As SldWorks.DrawingDoc
On Error Resume Next
Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc
If Not swDraw Is Nothing Then
swApp.RunCommand swCommands_e.swCommands_Properties, ""
MsgBox "Please open the drawing"