Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Label1.Visible = False
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set Target = ActiveCell
If Target.HasFormula Then
Cancel = True
With Label1
.Caption = Target.FormulaLocal
.Top = Target.Top
.Left = Target.Offset(, 1).Left
.AutoSize = False
.Height = Target.Height
.Width = 1000
.AutoSize = True
.Visible = True
End With
End If
End Sub