Krishnab4u
New Member
- Joined
- Jul 16, 2018
- Messages
- 34
Dear All,
i want to show text present in particular in message box when another cell is selected.
For eg., if i select "Z5", i want to show text from the cell "BI5" in the message box.
I wrote following code, but doesn't work.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng1 As Range
Set Rng = Range("Z5:Z140")
If Intersect(Target, Rng) Is Nothing Then Exit Sub
MsgBox "" & ActiveCell.Offset(0, 36) & vbCrLf & "Please input a number", vbInformation
End Sub
Please help.
i want to show text present in particular in message box when another cell is selected.
For eg., if i select "Z5", i want to show text from the cell "BI5" in the message box.
I wrote following code, but doesn't work.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng1 As Range
Set Rng = Range("Z5:Z140")
If Intersect(Target, Rng) Is Nothing Then Exit Sub
MsgBox "" & ActiveCell.Offset(0, 36) & vbCrLf & "Please input a number", vbInformation
End Sub
Please help.