Tvoj problem je sto se u naziv sheet-a ne mogu unjeti sljedeci znakovi (/ \ / : *).Ako ti je datum u ovom formatu "13/2/2008" sheet ga nece moci upotrjebit kao svoje ime jer nije dozvoljen separator "/" ...
Naravno ovo se moze izmjenit u (Control Panel> Regional and Language Options> Customize>Date) i promjenis Date separator umjesto "/" na ("-" ili ".").
Nakon svega ovoga opet nisi u potpunosti rijesio svoj problem jer ti sheet nece dozvolit da pravis isto ime.
Ali evo jednostavnog rjesenja:
Code:
Sub kod()
Dim datum As String
datum = Application.WorksheetFunction.Text(Now, "dd-mm-yy hh-mm-ss")
Sheets.Add.Name = datum
End Sub
Jedina greska je ako budes pokusao da za jednu sekundu napravis dva Sheet,ali onda upotrijebi stotinke :)
Ako ne počneš, nećeš ni završitit!!!