I wouldn't recommend doing this at all, but you can use the
following code in the ThisWorkbook code module:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object,
ByVal Target As Range)
Target.Copy
End Sub
By the way, please refrain from typing in ALL CAPS. It is hard to
read and is considered rude.
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com