Как использовать условно-рабочие книги в VBA?

Question

Я хочу использовать оператор if-then для двух рабочих книг.

Я определил x как Long, но x, похоже, не содержит значения суммы всех ячеек в столбце B

Но код выглядит правильно, есть мысли?

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

Как пример:

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