Message box

[Krishnab4u]

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.

 

[PatOBrien198]

Change:
Dim Rng1 as Range
To:
Dim Rng as Range

 

[Krishnab4u]

Hi,
thanks for the reply. But still it doesn't work. It says only "Please enter number".
Please help

 

[Fluff]

Try

MsgBox ActiveCell.Offset(0, 35).Value & vbCrLf & "Please input a number", vbInformation