Инициализировать класс, например, для обработки событий с OLE

[CaptainNemo]

Пусть на листе есть OLE – объект. Написал класс GotFocus и LostFocus:

Public WithEvents myOle As OLEObject
Private Sub myOle_GotFocus()
    MsgBox "OLE в фокусе"
End Sub
Private Sub myOle_LostFocus()
    MsgBox "ОЛЕ потерял фокус"
End Sub

Пытаюсь экземпляр класса инициализировать в стандартном модуле вот так:

Dim myNewOle As New myClass
Sub InitalizeOle()
    Set myNewOle.myOle = ActiveSheet.OLEObjects
End Sub

Но вот с этой строкой кода ActiveSheet.OLEObjects всё не так…Не поулчается. Как тут правильно прописывать. Подскажите…
Спасибо.
Файл прилагаю.

[EducatedFool]

У Вас объект myOle объявлен как OLEObject,
а Вы пытаетесь записать в этот объект всю коллекцию ActiveSheet.OLEObjects...

Правильно будет так: Set myNewOle.myOle = ActiveSheet.OLEObjects(1)

Но это ещё не всё...
После внесения изменений в код, Вы увидите ошибку 459
Как в данном случае её обойти, я не знаю.
Ответ на этот вопрос можете поискать здесь