Combine VBA codes to hide/show shapes based on cell value

[Mike89]

I need a VBA code that will hide/show shapes based on a cell value.

so far i have;

Private Sub Worksheet_Calculate()
If Range("B6").Value = "1" Then
Me.Shapes("Oval 14").Visible = True
Else
Me.Shapes("Oval 14").Visible = False

End If
End Sub


I need to combine the below into one VBA code

Private Sub Worksheet_Calculate()
If Range("B6").Value = "2" Then
Me.Shapes("Oval 15").Visible = True
Else
Me.Shapes("Oval 15").Visible = False

End If
End Sub

Private Sub Worksheet_Calculate()
If Range("B6").Value = "3" Then
Me.Shapes("Oval 16").Visible = True
Else
Me.Shapes("Oval 16").Visible = False

End If
End Sub

And so on...

Thanks in advance

 

[wigi]

For example:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$6" Then
        Shapes("Oval 14").Visible = Target.Value = 1
        Shapes("Oval 15").Visible = Target.Value = 2
        Shapes("Oval 16").Visible = Target.Value = 3
    End If
End Sub