(Q1):
Can I make the date and time update every second on frmTable.Caption?
code:
-----
Private Sub UserForm_Activate()
frmTable.Caption = "East Coast Seafood " & Now()
End Sub
(Q2):
Can I add one worksheet with the name is Date of the day?
Code below shown error because the worksheets.name not able to
accept "/.%,&,#" as name.How can I solve this?
Main puspose: I needed to save the worksheets everyday on the same
workbook.Thus, I want my worksheet's name is the Date of the day.
code:
-----
Sub BusinessEnd()
Dtime = Now()
Worksheets.Add Before:=Worksheets("Past Database")
Worksheets(Worksheets.Count - 1).Name = Dtime
Sheets("Past Database").Select
Cells.Select
Selection.Copy
Sheets(Dtime).Select
ActiveSheet.Paste
End Sub