MonthName始终返回12月

Question

我在Excel 2010中使用下拉框选择一个月（1月，2月，3月... 12月）。我的宏曾经在Excel 2007中工作，使用下拉列表中的选定月份填充电子邮件的主题。自升级到Excel 2010以来，无论选择哪个月，此代码现在将“十二月”作为月份。

Dim Person0 As String
Dim Person1 As String
Dim SubjectOfEmail As String
Dim MonthNum As Integer
Dim ThisMonth As String
Dim ThisYear As String
Dim ThisYear2 As String

MonthNum = ComboBox1.ListIndex + 1
ThisMonth = MonthName(MonthNum)
ThisYear = ActiveSheet.Name

Person0 = "myemail@gmail.com"
Person1 = "DistributionList"

SubjectOfEmail = ThisMonth & " " & ThisYear & " Desk Schedule"

Answer 1

我有几页（2012年，2013年，2014年，2015年）;每页还有一个宏。当宏按照alpabetical顺序放置时，运行的宏指向2014年的页面而不是2015年。该页面仍然在12月设置。这么长的故事可以快速检查宏运行的位置。