Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
boolstatus = Part.Extension.SelectByID2("SheetName", "SHEET", 0, 0, 0, False, 0, Nothing, 0)
'Part.EditDelete
Part.DeleteSelection (False)
End Sub

Help me ,

Why?   Part.EditDelete → Don't delete the Sheet

Why ?  Part.DeleteSelection (False) → Can delete the Sheet

Thanks

*********************************

Private Sub ll1()

   Dim Xls As Excel.Application, Rng As Range

      Set Xls = GetObject(, "Excel.Application")

      Set Rng = Xls.Selection

   Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

      Set SwApp = Application.SldWorks

      Set SwModel = SwApp.ActiveDoc

   Dim SwSelMgr As SelectionMgr, tmp, Str

      Str = Rng

      Set SwSelMgr = SwModel.SelectionManager

      tmp = SwModel.Extension.SelectByID2(Rng, "SHEET", 0, 0, 0, False, 0, Nothing, 0)

   Dim SwSheet As Sheet

      Set SwSheet = SwSelMgr.GetSelectedObject5(1)

      Debug.Print SwSheet.GetName         

      SwModel.DeleteSelection False

      Stop  

End Sub