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