特定纸张打开时溢出

Question

此代码查看同一工作簿中两个不同电子表格上的数据，并计算其中一个电子表格中的数据。由于某种原因，它在Sheet2打开时运行但是给出了＃34;运行时错误6：溢出＆＃34;当Sheet1打开时。为什么会这样呢？实际上Sheet1用作交互的主页面，而sheet2只包含与查看无关的数据。我怎么能做到这一点？

Sub CountData()

    With Sheet1
        Dim Reb As String
        Reb = .RebComboBox.Value 
    End With

    With Sheet2

        Dim numCols As Integer
        Dim numRows As Integer

        numCols = Range(Range("C1"), Range("C1").End(xlToRight)).Cells.Count
        numRows = Range(Range("B2"), Range("B2").End(xlDown)).Cells.Count

    End With

    MsgBox numRows

End Sub