Solved: Code is clearing clipboard

[mdmackillop]

I'm using the following code to highlight row and column headers. When I try to copy and paste, the clipboard is being emptied, so no Paste is available. Any thoughts?
[VBA]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Columns(3).Interior.ColorIndex = xlNone
Rows(2).Interior.ColorIndex = xlNone
Cells(Target.Row, 3).Interior.ColorIndex = 6
Cells(2, Target.Column).Interior.ColorIndex = 6
End Sub

[/VBA]

[rory]

I don't think you can have both - you could check Application.CutCopyMode and skip the colouring in if there's a cut/copy in progress?

[rory]

On second thought, if you set a reference to the Microsoft Forms library, you could try something like this:
[vba]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objData As MSForms.DataObject
If Target.Cells.Count > 1 Then Exit Sub
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then
Set objData = New MSForms.DataObject
objData.GetFromClipboard
End If
Columns(3).Interior.ColorIndex = xlNone
Rows(2).Interior.ColorIndex = xlNone
Cells(Target.Row, 3).Interior.ColorIndex = 6
Cells(2, Target.Column).Interior.ColorIndex = 6
If Not objData Is Nothing Then objData.PutInClipboard
End Sub
[/vba]

[mdmackillop]

Works a treat.
Thanks Rory.