Suppi, jetzt schiebt er mit das Blatt ans Ende. Allerdings musst ich die -1 noch entfernen. Danke für die Hilfe.
ActiveSheet.Cells("3", 2).Value
Das macht er noch nicht. Fehlt jetzt nich irgendwie auch der Bezug auf die Zelle (C2 im Excel Blatt) in der jeweils der Name jetzt erscheinen soll?
mfg