оповещение Excel о ячейке, которая автоматически изменяется

Question

Привет, может кто-нибудь помочь настроить это так, чтобы в сообщении с предупреждением говорилось о значении А2 И В2.

Private Sub Worksheet_Calculate()
    Dim myRange As Range
    Set myRange = ActiveSheet.Range("F2:F2")
    Dim cell As Range
    For Each cell In myRange
        Evaluate (cell)
        If StrComp(cell, "Yes", vbTextCompare) = 0 Then
            MsgBox Join(Application.WorksheetFunction.Transpose(Range("A1:A10").Value), Chr$(10))
        End If
    Next
End Sub

Answer 1

Я изменил свой исходный пост, чтобы он соответствовал вашим лучшим объяснениям.

Sub Worksheet_Calculate()
    Dim myRange As Range
    Dim Cell As Range

    Set myRange = ActiveSheet.Range("F2:F2")
    For Each Cell In myRange
        Evaluate (Cell)
        If StrComp(Cell, "Yes", vbTextCompare) = 0 Then
            MsgBox "A2 = " & CStr((Cells(2, "A").Value) & vbCr & _
                   "B2 = " & CStr(Cells(2, "B").Value))
        End If
    Next Cell
End Sub