如何获取鼠标左键单击事件

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        Cells(1, 1) = Cells(1, 1) + 1
            'MsgBox Sh.Name & '!' & Target.Address(0, 0)
End Sub

应将以上代码放到Thisworkbook中