Why does this code not work??

[bforster1]

I am trying to have certain code "fire" each time a worksheet change is made. Can someone review this code and tell me why nothing happens? Please also check the code related to the calculations. I have never used code for cell calculations.

Thanks

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Sheets("Sheet1").Range("C46") = "Input" Then
Sheets("Sheet1").Range("M45") = Sheets("Sheet1").Range("M46")
Else
If Sheets("Sheet1").Range("C46") = "$ Change from Previous Year" Then
Sheets("Sheet1").Range("M45") = Sheets("Sheet1").Range("I45") + Sheets("Sheet1").Rante("M46")
End If
End Sub

[rvExcelNewTip]

If Sheets("Sheet1").Range("C46") = "Input" Then
Sheets("Sheet1").Range("M45") = Sheets("Sheet1").Range("M46")
ElseIf Sheets("Sheet1").Range("C46") = "$ Change from Previous Year" Then
Sheets("Sheet1").Range("M45") = Sheets("Sheet1").Range("I45") + Sheets("Sheet1").Range("M46")
End If

[rvExcelNewTip]

You didn't make provision for the case that the C45 value is neither "Input" nor "$ Change from previous year". Are you sure that you entered C45 correctly i.e same number of spaces between words and same characters in upper/lowercase?