VBA查询sheet的codename

Sub name1()
    'sheet1为sheet的名称
    For Each sht In ActiveWorkbook.Sheets
        If sht.Name = "shee1" Then
            MsgBox sht.CodeName
            Debug.Print sht.CodeName
        End If
    Next sht
End Sub