'Ҫ㣺Count:=Day(DateSerial(Years, 3, 0)) - Worksheets.Count + 200 2·ݱ䶯ټ·ݹ̶Count:=137  μӣΪ1255  ԭbyteΪ255ΪInteger 

Sub ½()  '±,ڱ,ͬʱ,Ŀ¼
    Dim i As Integer , Years As Integer    '
   'һԻ,ûָ,Ĭʾǰ
    Years = InputBox(",򽫽ÿĹ", "ȷ", Year(Date))
    'ɹ,ָ2·ݵȥǰй,ټ3371+312µĹ̶Ϊÿ255Էӣ
Worksheets.Add After:=Worksheets(Worksheets.Count), Count:=Day(DateSerial(Years, 3, 0)) - Worksheets.Count + 200
Worksheets.Add After:=Worksheets(Worksheets.Count), Count:=137
'й,Ӧÿ
    For i = 1 To Worksheets.Count
        Worksheets(i).Name = i & ""   'ÿ
    Next i
    MsgBox "ϣ", 64
End Sub

