I am trying to get the following code to fire only when cell C10 changes. Please advise why it is not working. Thanks


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
If Sheets("Income Statement").Range("C10") = "Input" Then
Sheets("Income Statement").Range("E10") = Sheets("Income Statement").Range("E9")
Sheets("Income Statement").Range("F10") = Sheets("Income Statement").Range("F9")
Sheets("Income Statement").Range("G10") = Sheets("Income Statement").Range("G9")
Sheets("Income Statement").Range("H10") = Sheets("Income Statement").Range("H9")
Range("E10:I10").NumberFormat = "$#,##0"
End If
If Sheets("Income Statement").Range("C10") = "$ Growth from Previous Year" Then
Sheets("Income Statement").Range("E10") = "na"
Sheets("Income Statement").Range("F10") = Sheets("Income Statement").Range("F9") - Sheets("Income Statement").Range("E9")
Sheets("Income Statement").Range("G10") = Sheets("Income Statement").Range("G9") - Sheets("Income Statement").Range("F9")
Sheets("Income Statement").Range("H10") = Sheets("Income Statement").Range("H9") - Sheets("Income Statement").Range("G9")
Range("E10:I10").NumberFormat = "$#,##0"
End If
If Sheets("Income Statement").Range("C10") = "% Change from Previous Year" Then
Sheets("Income Statement").Range("E10") = "na"
Sheets("Income Statement").Range("F10") = (Sheets("Income Statement").Range("F9") - Sheets("Income Statement").Range("E9")) / Sheets("Income Statement").Range("E9")
Sheets("Income Statement").Range("G10") = (Sheets("Income Statement").Range("G9") - Sheets("Income Statement").Range("F9")) / Sheets("Income Statement").Range("F9")
Sheets("Income Statement").Range("H10") = (Sheets("Income Statement").Range("H9") - Sheets("Income Statement").Range("G9")) / Sheets("Income Statement").Range("G9")
Range("E10:I10").NumberFormat = "#.#0%"
End If
End With
End Sub