Событие открытия VB Excel Addin Workbook - L oop ошибка приведения всех листов

Question

Я пытаюсь создать свой самый первый EXCEL ADDIN с лентой. Ниже приведен мой код, но я получаю ошибку приведения. Что вызывает эту ошибку? И как мне это решить?

Imports System.Diagnostics
Imports Microsoft.Office.Tools.Ribbon

Public Class EllimetalRibbon

    Private WithEvents Application As Excel.Application
    Private ConfigColumnID As Integer
    Private Sub EllimetalRibbon_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles     MyBase.Load
        Application = EmmExcelAddin.Globals.ThisAddIn.Application
    End Sub

    Sub Application_WorkbookOpen(ByVal wb As Excel.Workbook) Handles Application.WorkbookOpen
        Dim oSheet As Worksheet

        For Each oSheet In wb.Sheets '**<---- Error here**
            '..................
        Next

    End Sub

End Class

System.InvalidCastException: 'Невозможно привести объект COM типа' System .__ ComObject 'к типу интерфейса' Microsoft.Office.Tools.Excel.Worksheet ' .