Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A5:Z5,AC5:BB5")) Is Nothing And Target.Rows.Count = 1 Then
Target = 2
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A5:Z5,AC5:BB5")) Is Nothing And Target.Rows.Count = 1 Then
Target = ""
Cancel = True
End If
Application.EnableEvents = True
End Sub