Deletar Guias VBA (criando CheckBox)

Boa tarde!!

Como listar as abas de um arquivo e deleta-las.

Código:

'Código Criado Por Antonio Marcos Oliveira
' 27/05/2014
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=11840&sid=b72550a5152e45c84f529ae785117d67
Private Sub UserForm_Initialize()
Dim Controle As Object
Dim Abas As Object
Dim DistanciaComponente As Integer
 
  For Each Abas In Worksheets
   If Abas.Name <> "Menu" Then
       DistanciaComponente = DistanciaComponente + 20:
      
       Set Controle = Controls.Add("Forms.CheckBox.1")
      
       Controle.Caption = Abas.Name
       Controle.Left = 10
       Controle.Top = DistanciaComponente
    End If
   Next Abas
End Sub

Código:

Private Sub CmdDeleteAbas_Click()
Application.DisplayAlerts = False
On Error Resume Next
Dim Controle As Object

   For Each Controle In Me.Controls
      If TypeName(Controle) = "CheckBox" Then
         If Controle.Value = True Then
            Sheets(Controle.Caption).Delete
          
         End If
      End If
   Next Controle
End Sub

Veja arquivo modelo em:
http://www.sendspace.com/file/1a5urq

Att