Delete excel work Sheet by name

Dim objExcel As Excel.Application
        objExcel = New Excel.ApplicationClass
        Dim FilePath As String = "C:\ExcelReport\"
     GetFileName As String = "Book1.xlsx"

        Dim Date1 As String = Date.Now.Year.ToString & Date.Now.Month.ToString & Date.Now.Day.ToString

        Dim oBook As Excel.Workbook, oSheet1 As Excel.Worksheet, oSheet2 As Excel.Worksheet

     oBook = objExcel.Workbooks.Open(FilePath & GetFileName  Date1 & ".xlsx")
if oBook.Worksheet.Name = "Sheet1" then
oBook.Worksheet.Delete()
end if


oBook.Save()
 oBook.Close()
  objExcel.Quit()

Select allOpen in new window