Работа с Excel: Удаление листов

'Открыть новую книгу Excel
            oExcel = CreateObject("Excel.Application")
            oExcel.Application.SheetsInNewWorkbook = 1
           
            'Добавить данные в ячейки первого листа новой книги
            oSheet = oBook.Worksheets(1)
            oSheet.Name = "Титульная" ' Переименование названия листа

oSheet = oBook.Worksheets(2).delete

Public Class Form1
    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        oExcel = CreateObject("Excel.Application") ' создаем экземпляр приложения
        oExcel.Visible = True ' любуемся им
        oExcel.Application.SheetsInNewWorkbook = 1 ' в новой книге будет 1 лист
        oBook = oExcel.Workbooks.Add() ' создаем новую книгу
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        oSheet = oBook.sheets(1) ' задаем объект-лист переменной
        oSheet.Name = "Переименованный" ' переименовываем лист
        If MsgBox("Удалить лист?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            oSheet = oBook.sheets.add(after:=oSheet) ' добавляем новый пустой лист после переименованного перед удалением, т.к. книга не может быть без листов. Заодно и переопределяем переменную oSheet
 
            ' при попытке удалять листы с данными (ну на случай, если тебе это пригодится) указываем на то, что предупреждения показывать не надо
            oExcel.DisplayAlerts = False
 
            ' удаляем первый лист
            oBook.sheets("Переименованный").delete() ' к листам можно и по имени обращаться
            ' теперь можно снова включить предупреждения
            oExcel.DisplayAlerts = True
 
            oSheet.Name = "Вторичный" ' второй добавленный лист называем Вторичным
        End If
    End Sub
End Class

oSheet = oBook.Worksheets(1)

oSheet = oBook.Worksheets(2)

oBook.sheets.add(after:=oSheet)

oBook.sheets.add()