the change event is not triggered by a formula recalculation so as mentioned you need to monitor the input cell (F4) instead
If Target.Address(False, False) = "F4" Then
or use the worksheet_calculate event