用Excel 2010编写的宏在Excel 2013中不起作用

Question

我编写了一个简单的宏来强制最终用户查看EULA，然后单击命令按钮来接受这些术语。单击工作簿的选项卡打开，允许用户完成工作。这适用于Excel 2010和所有以前的版本，但不适用于Excel 2013.

我收到此错误：

这是代码：

Sub OpenSheets()
'
' OpenSheets Macro
'

'
    Sheets("EULA").Select
    Sheets("Infection_Worksheet").Visible = True
    Sheets("Infection_Worksheet").Select
    Sheets("Exit_Site_Infection_Chart").Visible = True
    Sheets("Exit_Site_Infection_Chart").Select
    Sheets("Peritonitis_Chart").Visible = True
    Sheets("Exit_Site_Infection_Chart").Select
    Sheets("%_Pts_peritonitis_free").Visible = True
    Sheets("%_Pts_peritonitis_free").Select
    Sheets("Pt_numbers").Visible = True
    Sheets("Pt_numbers").Select    
    Sheets("Results").Visible = True
    Sheets("Results").Select
    Sheets("Instructions").Visible = True
    End Sub

有人有任何建议吗？

Answer 1

下划线表示继续到VBA中的下一行。

试试这个Sheets("Infection" & Chr(97) & "Worksheet").Visible = True

等等等