[COLOR=#323232][FONT=Courier New]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)[/FONT][/COLOR]Dim objData As DataObject, N_objData As New DataObject, MyData As String
On Error Resume Next
Set objData = New DataObject
N_objData.GetFromClipboard
MyData = N_objData.GetText
objData.SetText MyData
objData.PutInClipboard
Set objData = Nothing [COLOR=#323232][FONT=Courier New]End Sub[/FONT][/COLOR]