Can't save book with new macro

I am trying to get a VBA Macro to work properly in Excel 2010. I am not getting any error indications but it won't save.
Below is the code:
[code]
Private Function FishWeight()

End Function

Dim W As Integer

If C3 = ("LMB") Then W = E3 ^ 2 * F3 / 1200
Else
If C3 = ("SMB") Then W = E3 ^ 2 * F3 / 1200
If C3 = ("Rainbow") Then W = E3 * F3 ^ 2 / 800
If C3 = ("Brown") Then W = E3 * F3 ^ 2 / 800
If C3 = ("Saugeye") Then W = E3 ^ 3 / 2700
If C3 = ("Walleye") Then W = E3 ^ 3 / 2700
If C3 = ("Muskie") Then W = E3 ^ 3 / 3500
If C3 = ("Northern") Then W = E3 ^ 3 / 3500

End If
[code]