Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
p = Application.Match(Target, Application.Index([Momo], , 1), 0)
If Not IsError(p) Then
ActiveSheet.Shapes("monShape").Visible = True
For i = 1 To 8
Cells(i + 1, 19) = [Momo].Cells(p, i)
Next i
Shapes("monshape").Left = Target.Offset(, 1).Left + 3
Shapes("monshape").Top = Target.Top
Else
ActiveSheet.Shapes("monShape").Visible = False
End If
End If
End Sub