In diesem Beispiel wird eine Liste aller Namen in der aktiven Arbeitsmappe erstellt. Die zugehörigen Formeln werden in A1-Schreibweise in der Sprache des Makros angezeigt. Die Liste wird in ein neues Tabellenblatt eingefügt, das das Makro zuvor erstellt hat.
Set newSheet = Worksheets.Add i = 1 For Each nm In ActiveWorkbook.Names newSheet.Cells(i, 1).Value = nm.Name newSheet.Cells(i, 2).Value = "'" & nm.RefersTo i = i + 1 Next newSheet.Columns("A:B").AutoFit