på et ark, skriv i en celle 01-01-2012 træk ned til 31-12-2012.
vælg alle cellerne.
Kør makroen
Sub A_test()
iark = ActiveSheet.Name
For Each cell In Selection Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = Format(cell, "dd-mm") Next cell Sheets(iark).Activate
End Sub
|