[RESOLVED] Can't delete excel sheet
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?
VB Code:
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
Re: Can't delete excel sheet
Got it, I had to add...
VB Code:
test.DisplayAlerts = False