>>108
んなこと知ってるから。

で、今日は休みなのでテストしてみた。
今までの検証から思いつくであろう最少のコードでテストしたら
見事に再現した。再現コードは以下の通り

【クラスモジュール名 I】 （Instancingを2 - PublicNotCreatableに変更】
Option Explicit
Public Sub foo()
End Sub

【Worksheet名 Sheet1、Sheet2、Sheet3】
Option Explicit
Implements I
Private Sub I_foo()
End Sub

【Workbook名 ThisWorkbook】
Private Sub Workbook_Open()
Dim o As Object
' Dim i As Long
' For i = 1 To Sheets.Count
' Set o = Sheets(1)
' Debug.Print o.Name
' Next i
For Each o In Sheets
Debug.Print o.Name
Next o
End Sub