View hidden pictures based on cell value

I HAVE WRITTEN SOME BASIC CODE TO MAKE THIS HAPPEN...HOWEVER I HAVE OVER 1000 CELLS THAT NEED THE SAME THING. I NEED A WAY TO SHORTEN THE PROCESS AND CANNOT FIGURE OUT HOW TO CODE THIS. I AM VERY NEW TO CODING. THIS IS A SAMPLE OF THE CODE I AM USING

HideSignals
Select Case [T11]
Case 1: Shapes("YELLOW1").Visible = msoTrue
Case 2: Shapes("GREEN1").Visible = msoTrue
Case 3: Shapes("FUSHA1").Visible = msoTrue
Case 4: Shapes("BROWN1").Visible = msoTrue
End Select
Select Case [U11]
Case 1: Shapes("YELLOW3").Visible = msoTrue
Case 2: Shapes("GREEN3").Visible = msoTrue
Case 3: Shapes("FUSHA3").Visible = msoTrue
Case 4: Shapes("BROWN3").Visible = msoTrue
End Select
Select Case [V11]
Case 1: Shapes("YELLOW4").Visible = msoTrue
Case 2: Shapes("GREEN4").Visible = msoTrue
Case 3: Shapes("FUSHA4").Visible = msoTrue
Case 4: Shapes("BROWN4").Visible = msoTrue
End Select
Select Case [W11]
Case 1: Shapes("YELLOW2").Visible = msoTrue
Case 2: Shapes("GREEN2").Visible = msoTrue
Case 3: Shapes("FUSHA2").Visible = msoTrue
Case 4: Shapes("BROWN2").Visible = msoTrue
End Select
End Sub

Sub HideSignals()
Dim i As Integer
For i = 1 To 15
Shapes("YELLOW" & i).Visible = msoFalse
Shapes("GREEN" & i).Visible = msoFalse
Shapes("FUSHA" & i).Visible = msoFalse
Shapes("BROWN" & i).Visible = msoFalse
Next i
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [T11:AH11]) Is Nothing Then
Worksheet_Calculate
End If
End Sub