In diesem Beispiel wird ein neues Tabellenblatt erstellt und anschließend eine Liste aller Namen in der aktiven Arbeitsmappe zusammen mit den zugehörigen Formeln in Z1S1-Schreibweise in der Sprache des Makros eingefügt.
Set newSheet = ActiveWorkbook.Worksheets.Add i = 1 For Each nm In ActiveWorkbook.Names newSheet.Cells(i, 1).Value = nm.Name newSheet.Cells(i, 2).Value = "'" & nm.RefersToR1C1 i = i + 1 Next