¿Cómo hacer un Private Sub Worksheet_Change(ByVal Target As Excel.Range) múltiple?

Me gustaría saber como aplicar un Private Sub Worksheet_Change(ByVal Target As Excel.Range) que trabaje de la siguiente forma:

1. Tiene referencias a distintas celdas

2. En función del valor de la celda se muestran u ocultan pestañas

El problema que tengo es que tal y como escribo la macro se muestran u ocultan todas las pestañas, no una por una.

Este es mi código:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$D$23" And Target.Value = "Yes" Then
Hoja10.Visible = True
Else
Hoja10.Visible = False
End If
If Target.Address = "$D$24" And Target.Value = "Yes" Then
Hoja3.Visible = True
Else
Hoja3.Visible = False
End If
If Target.Address = "$D$25" And Target.Value = "Yes" Then
Hoja11.Visible = True
Else
Hoja11.Visible = False
End If
End Sub

Muchas gracias