In diesem Beispiel wird die Registernummer des eingegebenen Tabellennamens angezeigt. Wenn Diagramm1 beispielsweise das dritte Register der aktiven Arbeitsmappe ist, erscheint die Zahl "3" in einem Meldungsfeld.
sheetname = InputBox("Type a sheet name, such as Sheet12") MsgBox "This sheet is tab number " & Sheets(sheetname).Index