Sub izé()
MsgBox Sheets(1).CodeName
MsgBox Munka1.Name
End Sub