» Display a record with a right mouse click using VBA in Microsoft Excel

Question:
The row of an active cell is to be displayed in a message box with a right mouse click in columns A:E


Answer:
Insert the following code in the appropriate modules.






Place the code below into the This Workbook module.

 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

   Dim intCounter As Integer

   Dim txt As String

   If Target.Column > 5 Then Exit Sub

   Cancel = True

   For intCounter = 1 To 5

      txt = txt & Cells(Target.Row, intCounter) & vbLf

   Next intCounter

   MsgBox txt

End Sub