Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Catch
If Not Intersect(Target, ThisWorkbook.ActiveSheet.Range("C4")) Is Nothing Then
a = Split(Target, "-")
If Not Target = "" And a(0) > 100 And a(1) > 100 Then
ThisWorkbook.ActiveSheet.Range("B4") = Target
End If
End If
Exit Sub
Catch:
End Sub