Excel VBA - Run-time error '1004'

Hi guys

I have created a couple of sheet event macros and two of them seem to be conflicting with each other.

The first looks to the right of the cell clicked, and then checks if there is a duplicate of that cell above or below. If there is a duplicate it deletes the entire row, if not it shows a message box saying "you can't delete the last copy".

The second set of macros are macros that unhide and hide a specific set of columns to the right of the sheet.

The code and error message is below.. Someone help please!!



Error message:

"Run-time error'1004':
Method 'Intersect' of object '_Global' failed"



Code:
'delete macro
If Selection.Count = 1 Then
If Not Intersect(Target, Range("B15:B32")) Is Nothing Then
If ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(1,1).Value Or ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1).Value Then
ActiveCell.EntireRow.Select
Selection.EntireRow.Delete
Range("a1").Select
Else
MsgBox "Cannot delete the only copy"
Range("a1").Select
End If
End If
End If




'unhide macro
If Selection.Count = 1 Then
If Not Intersect(Target, Range("S11")) Is Nothing Then
Columns("T:T").Select
Selection.EntireColumn.Hidden = False
Range("S1").Select
End If
End If

'hide macro
If Selection.Count = 1 Then
If Not Intersect(Target, Range("T11")) Is Nothing Then
Columns("T:T").Select
Selection.EntireColumn.Hidden = True
Range("S1").Select
End If
End If



The line highlighted yellow in debug mode is the "if not intersect..." line in the unhide macro, or hide macro, depending on which one is first in the module. Strangely, despite the error message, the action of the delete macro gets carried out perfectly, yet the error message still pops up.