工作簿事件

# 打开工作簿跳转到指定的工作表

Private Sub Workbook_Open()
 mon = Format(Now(), "m")
 MsgBox mon
End Sub

# 活动表的名称 

ActiveSheet.Name