Display cell A2 and B1 and contents in message box

[ste33uka]

Hi i have the follwing code, which displays the contents of A2 in alert message box. is there any way to display the content of A2 and B1 in the same message box ?

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 Sheet1.Range("A2")
End If
Next
End Sub

 

[kanadaaa]

Add this below Public Sub

Dim msg as Long

And change the line containing MsgBox to:

msg = MsgBox("A2: " & Range("A2").Value & vbCrLf & "B1: " & Range("B1").Value, vbExclamation)

 

[ste33uka]

Thanks alot, that works great.

 

[ste33uka]

hi is there any way to change for code for 5 sheets ?

 

[ste33uka]

with using 5 sheets
is there a way to show content in alert of sheet1.A2 and B1,
then use code on sheet to to show content in alert of sheet2.A2 and B1,

 

[kanadaaa]

Just paste the same code in each sheet module.

 

[ste33uka]

Thanks but have tried that but alert shows all 5 sheets, so i get 5 pop up alerts.
I think it maybe becuase all 5 sheets are active.

 

[ste33uka]

Thanks alot for help, problem is solved, thanks again