Makro Tabellenblattname
02.09.2003 09:15:54
junny
Habe einen Code bei dem ich Tabellenblätter kopiere und ans Ende einfüge, danach wieder zum ersten Blatt wechsle. Momentan ist der neue Blattname +1
Was ich gerne hätte: Meine Blattnamen sind A, B, ... deswegen sollte der neue Blattname C, D, ... sein nicht 3,4,..
Mein derzeitiger Code
Sub CopySheet()
Sheets("A").Select
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = (ActiveWorkbook.Worksheets.Count + 1)
Sheets("A").Select
End Sub
Danke, gruss junny