Private Sub Workbook_NewSheet(ByVal sh As Object)
　Dim obj As Object
　Set obj = sh
　MsgBox obj.Name
End Sub

これだと中身が見られないけど通る。
やっぱり>>183の型キャスト説じゃないかなぁ。
ローカルウィンドウでも見られないし。

obj.Value = "aaa"　で実行時エラーになる。
「ん〜何か知らないけどValueに入れるよ？あっねえわｗ」　ってことでは？

.Nameや.Range().Addressはあったんで通る。