Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("R17:AK600")) Is Nothing And Intersect(Target, Range("A:A")) Is Nothing _
And Target.Interior.ColorIndex = xlNone Then
If Target.Cells(1).Value = Chr(163) Then
Target.Cells(1).Value = "R"
Else
Target.Cells(1).Value = Chr(163)
End If
If Not Intersect(Target, Range("R:U")) Is Nothing Then
Target.EntireRow.Hidden = Target.Cells(1).Value = "R"
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheet_SelectionChange Target
Cancel = True
End Sub