12.05.2001
Sub Projektname_ermitteln() MsgBox ThisWorkbook.VBProject.Name End Sub
Sub Projektname_setzen() ThisWorkbook.VBProject.Name = "MeinVBA" End Sub