Allowing CONF passed without quotes from Excel Cell

[GoogleCodeExporter]

This may be just my pet peeve, but I am not a fan of having to enter the quotes 
around "M" for CONF in the Excel cell for my OPERT call.  Following code 
inserted in OPERT function before the original "On Error Goto 16" will allow me 
to enter the CONF argument without quotes:

    'following allows conf to be entered without quotes
    Dim sformula As String
    Dim commaPos As Integer, parenPos As Integer

    If IsError(conf) Then
        'if it's an error value, get the entry in the formula
        sformula = Application.Caller.Formula

        'return position of 3rd comma
        commaPos = InStr(1, sformula, ",")
        commaPos = InStr(commaPos + 1, sformula, ",")
        commaPos = InStr(commaPos + 1, sformula, ",")

        'return end of formula to capture 4th argument
        parenPos = Len(sformula)

        conf = Mid(sformula, commaPos + 1, parenPos - commaPos - 1)
    End If

Original issue reported on code.google.com by [email protected] on 27 Jul 2011 at 1:02