Error in Value

This code won't output a value. It says error in value. I'm not sure what's wrong.
Function GearRatio(Gear As Double, Gear1 As Double, Gear2 As Double, Gear4 As Double, Gear5 As Double, Gear6 As Double)
If Gear = 1 Then
GearRatio = Gear1
If Gear = 2 Then
GearRatio = Gear2
If Gear = 3 Then
GearRatio = Gear3
If Gear = 4 Then
GearRatio = Gear4
If Gear = 5 Then
GearRatio = Gear5
If Gear = 6 Then
GearRatio = Gear6

End If
End If
End If
End If
End If
End If


End Function

Do you see any obvious problems?

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Function GearRatio(Gear As Double, Gear1 As Double, Gear2 As Double, Gear4 As Double, Gear5 As Double, Gear6 As Double)
If Gear = 1 Then
   GearRatio = Gear1
    If Gear = 2 Then
        GearRatio = Gear2
        If Gear = 3 Then
            GearRatio = Gear3
            If Gear = 4 Then
                GearRatio = Gear4
                If Gear = 5 Then
                    GearRatio = Gear5
                    If Gear = 6 Then
                        GearRatio = Gear6
                        
                        End If
                    End If
                End If
            End If
        End If
    End If
    

End Function

Duplicate post

http://www.excelforum.com/excel-prog...ment-help.html