ikboy

Try this:

1. Sub zz()
   
2. Dim md$, t As Boolean
   
3. md = Format(Date, "mmdd")
   
4. For i = 1 To Sheets.Count
   
5.     If Sheets(i).Name = md Then t = True: Exit For
   
6. Next
   
7. If t Then
   
8.     Sheets(md).Activate
   
9. Else
   
10.     Sheets.Add before:=Sheets(1)
    
11.     ActiveSheet.Name = md
    
12. End If
    
13. End Sub

½Æ»s¥N½X