documentation，在不指定Before或After参数的情况下使用它将创建一个仅包含该工作表的新工作簿。
mymonth = Split(myDate, "-") 'split此日期格式，找到当前的月份的英语简写 myName = UCase(mymonth(1)) & UCase(mymonth(0)) & Year(Date) & "N" '你需要的格式 Sheets(1).Name = myName End Sub