Macro (Module) to copy macro (sheet) to a sheet

Use the workbook level event SheetSelectionChange.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub