Hallo,

gilt dann aber für alle Tabellen:





Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)    

  ActiveSheet.Name = ActiveCell.Value

End Sub  





Gruß

Alfons

geschrieben von Alfons Seeberger , 03.04.2006, 11:20 Uhr , 13 mal gelesen