如何在VBA中使用If-Then有条件跨工作簿？

Question

I want to use if-then statement across two workbooks.

I've defined x as Long but x does not appear to hold the value of the sum of all cells in column B

But the code looks right, any thoughts?

Sub mycode()


       Dim x As Long


       myRange = Workbooks("Book2").Sheets("Sheet1").Range("B1", _ 
       Range("B1").End(xlDown))


       x = WorksheetFunction.Sum(myRange)    '<<does not seem to hold value



      If Workbooks("Book1").Sheets("Sheet1").Range("A1").Value = x Then

         MsgBox ("values equal")

      Else

         MsgBox ("please review values")

      End If



End Sub

Answer 1

As an example:

Sub MyCode()
    Dim myRange As Range
    Set myRange = Workbooks("Book2").Sheets("Sheet1").Columns(2)

    If Workbooks("Book1").Sheets("Sheet1").Range("A1").Value = WorksheetFunction.Sum(myRange) Then
        MsgBox "Values equal"
    Else
        MsgBox "Please review values"
    End If
End Sub