Ejecutar worksheet_change al cambiar celda especifica

Con la siguiente macro puedo ocultar filas de acuerdo a los datos introducidos en una celda, lo que quisiera poder hacer es que cuando se modifique un rango en especifico "BC56:BE59" proveniente de un vinculo en otra celda, haga los cambios, muchas gracias por su tiempo!.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim celda
celda = [bc57]

Application.ScreenUpdating = False

Select Case celda

Case 25
Rows("18:92").Hidden = False
Rows("93:152").Hidden = True
Case 30
Rows("18:107").Hidden = False
Rows("108:152").Hidden = True
Case 35
Rows("18:122").Hidden = False
Rows("123:152").Hidden = True
Case 40
Rows("18:137").Hidden = False
Rows("138:152").Hidden = True
Case 45
Rows("18:152").Hidden = False
Case Else
Cells.Select
Selection.EntireRow.Hidden = False
Range("A1").Select
End Select

Application.ScreenUpdating = True

End Sub