VBA Intersect Error

[AllisterB]

I have the following code on a sheet. When I go to paset something in cell A2 it doesn't let me.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'prevents pasting onto row 1
If Not Intersect(Target, Range("1:8")) Is Nothing Then Application.CutCopyMode = False

End Sub

When I comment the code it I can paste to A2.

Row 1 is alos hidden by Grouping. When I Ungroup row 1 I am also able to paste into A2

What is wrong with my code.

Thank you

Allister

 

[JoeMo]

Range("1:8") includes ALL cells in the first 8 rows of the worksheet. Your code will prevent pasting to any cell in the first 8 rows.

 

[AllisterB]

Thank You JoeMo

 

[mikerickson]

Range("1:8") includes ALL cells in the first 8 rows of the worksheet. Your code will prevent pasting to any cell in the first 8 rows.

In my testing, setting CutCopyMode to False, stops the marching ants, but it doesn't empty the clipboard. Paste will still work.
Perhaps its just a Mac thing, but that approach didn't prevent pasting in my test.

 

[JoeMo]

In my testing, setting CutCopyMode to False, stops the marching ants, but it doesn't empty the clipboard. Paste will still work.
Perhaps its just a Mac thing, but that approach didn't prevent pasting in my test.

In Windows it doesn't clear the clipboard either, but it prevents a paste from the right-click context menu or by using ctrl + v, or by using the Paste icon on the Home tab. If the clipboard is displayed, a paste can still be done from there.