Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row > 2 And Target <> "" Then
If Target.Value = "R" Then
Sheets(Cells(Target.Row, 3).Value).Visible = -1
Else
Sheets(Cells(Target.Row, 3).Value).Visible = 0
End If
End If
End Sub