Sub AddSheet()
On Error GoTo loi
For i = 1 To 5
With sheets("total").Add
.Name = Format(Now() + i - 1, "dd-mmm")
End With
Next i
loi:
If Err.Number = 1004 Then
MsgBox "total " & Format(Now(), "dd-mmm") & " da ton tai"
Application.DisplayAlerts = False...