Left and Right Mouse Click Event

[PcMax]

Hallo
Still to solve the problems of selection wonder how the subject should be written the following code:

Sub Test()
    ActiveSheet.Shapes("Picture 309").Select        'I select the object
    ActiveSheet.Shapes("Picture 309").Deselect      'Here I would like to deselect the object
End Sub

Obviously, the code does not work ...