Try this code


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$15" Then
Select Case Range("F15").Value
...
End Select
ElseIf Target.Address = "$F$53" Then
Select Case Range("F53").Value
...
End Select
End If
End Sub