Could someone help me for popup msgbox

[crorepathi]

Have two sheets in excel...When I click Cell A1 of Sheet 1 then I should get a popup message box with Cell A1 of Sheet 2 as contents of popup and if I click Cell A2 of Sheet 1 it should popup Cell A2 of sheet 2 as contents etc ..

 

[Fluff]

Put this in the sheet module for sheet1 & when you select any cell in col A you will get the message box

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("A:A")) Is Nothing Then
      MsgBox Sheets("Sheet2").Range(Target.Address).Text
   End If
End Sub