运行时错误‘438’ 对象不支持该属性或方法

yang4301

Sub HideAndShow()
Dim IntCompart As Integer, IntTest As Integer, IntDefrost As Integer
Dim IntRow1 As Range, IntRow2 As Range, IntRow3 As Range, IntRow4 As Range, IntRow5 As Range

Workbooks("test calculation1.xlsm").Active
Worksheets(Sheet1).Select
IntCompart = Worksheets("Basic information").Cells(8, 5)
IntTest = Worksheets("Basic information").Cells(9, 5)
IntDefrost = Worksheets("Basic information").Cells(10, 5)

运行到红色行就报以上错误。我的VBA project引用情况如图

不知道是不是少了什么引用？

aqkr

……请在sheet1(如果存在的话）上加个双引号