Msgbox to show two cell contents

[SPLUCENA]

Hi,

I am trying to assigned the values of two adjacent cell in a msgbox (columns AE and AF) as it is to far away for me to scroll and hiding the other columns will cause me to unhid it when I need to enter some information on it.
What I want to do, is when I double click activecell in column B, msgbox will pop and tell me the values nested in the same row under columns AE and AF (contract start date is : in column AE, contract end date : in column AF)

How to do this? I am trying this but it is giving me error. Kindly help....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "Contract Start Date" & ActiveCell.Row.Offset(0, 30).Value & "Contract Start Date" & ActiveCell.Row.Offset(0, 31).Value

End Sub

Thanks!

 

[VoG]

Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
    Cancel = True
    MsgBox "Contract Start Date" & vbTab & Format(Target.Offset(0, 29).Value, "dd/mm/yy") _
    & vbNewLine & "Contract End Date" & vbTab & Format(Target.Offset(0, 30).Value, "dd/mm/yy")
End If
End Sub

 

[SPLUCENA]

Thanks Vog,

I have somehow managed to write this code too, but I prefer your code better:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "Contract Start Date :" & ActiveCell.Offset(0, 29).Value & vbNewLine & "Contract End Date :" & ActiveCell.Offset(0, 30) & vbNewLine & "Contract Value :" & ActiveCell.Offset(0, 31).Value
End Sub