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
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