[RESOLVED] Can't delete excel sheet

[dee-u]

I have the ff. code, I've tried deleting the base sheet but I can't, anyone who could pinpoint what I maybe doing wrong?

Private Sub Command1_Click()
    Dim test    As Excel.Application
    Dim wkb     As Excel.Workbook
    Dim sht     As Excel.Worksheet
    Dim a       As Integer
    
    Set test = New Excel.Application
    Set wkb = test.Workbooks.Open("C:\LogisticsReport.xls")
    
    
    'Create a 30 copy clone of the base sheet
    For a = 1 To 30
        wkb.Sheets(1).Copy After:=wkb.Sheets(wkb.Sheets.Count)
        wkb.ActiveSheet.Name = "dee-u" & a
        wkb.ActiveSheet.Range("B4").Value = "dee-u" & a
    Next
    
    'Macro:
    'Sheets("dee-u1").Select
    'ActiveWindow.SelectedSheets.Delete
    
    Set sht = wkb.Sheets(1)
    sht.Delete
    
    'wkb.Sheets(1).Select
    'wkb.ActiveSheet.Delete
    'wkb.Sheets(1).Delete
    'test.Sheets(1).Delete
    
    test.Visible = True
End Sub