mdmackillop
08-10-2007, 04:18 AM
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?
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
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