Almost There...

[Frith]

Hello,

Trying this another way here... Might anyone here know how I could have the below code dump any clipboard data after the initial paste command executes? I now have it so that the already pasted cells won't take a 2nd paste... I just need to paste once per instance of copied data.

Thank you,
F

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A3:A50")) Is Nothing and ActiveCell = "" Then
If Target.Count < 5 Then
'Turn on error handling
On Error Resume Next
ActiveSheet.PasteSpecial NoHTMLFormatting:=True
'Check for errors
If Err Then
Err.Clear
Target.PasteSpecial xlPasteAll
If Err Then
MsgBox ("Cannot Paste." & vbCrLf & Err.Number & vbCrLf & Err.Description)
End If
End If
'Turn off error handling
Err.Clear
On Error GoTo 0
End If

 

[JoeMo]

Use:

Application.CutCopyMode = False

to clear the clipboard after a paste operation.

 

[VoG]

You should have stuck to your original thread http://www.mrexcel.com/forum/showthread.php?t=553451