Unable to change the UDF name.

[Ravana]

Heah friends,

In the below code, When I change "Function SpellIndian" as "Function SpellIndian1", I am getting 0 (zero) as cell value.

Is there a way to do it?

Function SpellIndian(ByVal MyNumber)
     
     '**** Yogi Anand -- ANAND Enterprises -- Rochester Hills MI 48309 -- 248-375-5710 www.anandent.com
     '**** Last updated 03-Oct-2003
     '**** SpellIndian (modified on 20-Sep-2003 to 1) show Rupees to precede, and to show "" for 0 paise)
     '**** ySpellRupees (on 20-Nov-2002)
     '**** Excel UDF to spell Indian Currency -- Rupees and Paise into text
     '**** Indian currency starts off with 1000s, and after that only with 100s
     '**** 1000 (Thousand) -- 1,00,000 (Lac or Lakh) -- 1,00,00,000 (Crore) -- 1,00,00,00,000 (Arab)
     '**** (this UDF is based on SpellNumber by Microsoft)
     '****************' Main Function *'****************
     
    Dim Rupees, paise, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Lac "
    Place(4) = " Crore "
    Place(5) = " Arab " ' String representation of amount
    MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none
    DecimalPlace = InStr(MyNumber, ".")
     'Convert Paise and set MyNumber to Rupee amount
    If DecimalPlace > 0 Then
        paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber <> ""
        If Count = 1 Then Temp = GetHundreds(Right(MyNumber, 3))
        If Count > 1 Then Temp = GetHundreds(Right(MyNumber, 2))
        If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
        If Count = 1 And Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            If Count > 1 And Len(MyNumber) > 2 Then
                MyNumber = Left(MyNumber, Len(MyNumber) - 2)
            Else
                MyNumber = ""
            End If
        End If
        Count = Count + 1
    Loop
    Select Case Rupees
    Case ""
        Rupees = "No Rupees"
    Case "One"
        Rupees = "One Rupee"
    Case Else
         '****************************************************************
         'Yogi Anand on 20-Sep-2003
         'modified the following two lines to display "Rupees" to precede
         ' rem'd the first line and added the second line
         '****************************************************************
         'Rupees = Rupees & " Rupees"
        Rupees = "Rupees " & Rupees
         
    End Select
    Select Case paise
    Case ""
         '****************************************************************
         'Yogi Anand on 20-Sep-2003
         'modified the following two lines to display nothing for no paise
         ' rem'd the first line and added the second line
         '****************************************************************
         
         'Paise = " and No Paise"
         '****************************************************************
         'Yogi Anand on 03-Oct-2003
         'modified the following line to display " Only" for no paise
         ' rem'd the first line and added the second line
         '****************************************************************
         'Paise = ""
        paise = " Only"
    Case "One"
        paise = " and One Paisa"
    Case Else
        paise = " and " & paise & " Paise"
         
    End Select
    SpellIndian = Rupees & paise
End Function
 '*******************************************
 ' Converts a number from 100-999 into text *
 '*******************************************
Function GetHundreds(ByVal MyNumber)
    Dim result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds place
    If Mid(MyNumber, 1, 1) <> "0" Then
        result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
     'Convert the tens and ones place
    If Mid(MyNumber, 2, 1) <> "0" Then
        result = result & GetTens(Mid(MyNumber, 2))
    Else
        result = result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = result
End Function
 '*********************************************
 ' Converts a number from 10 to 99 into text. *
 '*********************************************
Function GetTens(TensText)
    Dim result As String
    result = "" 'null out the temporary function value
    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19
        Select Case Val(TensText)
        Case 10: result = "ten"
        Case 11: result = "eleven"
        Case 12: result = "twelve"
        Case 13: result = "thirteen"
        Case 14: result = "fourteen"
        Case 15: result = "fifteen"
        Case 16: result = "sixteen"
        Case 17: result = "seventeen"
        Case 18: result = "eighteen"
        Case 19: result = "nineteen"
        Case Else
        End Select
    Else ' If value between 20-99
        Select Case Val(Left(TensText, 1))
        Case 2: result = "twenty "
        Case 3: result = "thirty "
        Case 4: result = "forty "
        Case 5: result = "fifty "
        Case 6: result = "sixty "
        Case 7: result = "seventy "
        Case 8: result = "eighty "
        Case 9: result = "ninety "
        Case Else
        End Select
        result = result & GetDigit _
        (Right(TensText, 1)) 'Retrieve ones place
    End If
    GetTens = result
End Function
 '*******************************************
 ' Converts a number from 1 to 9 into text. *
 '*******************************************
Function GetDigit(digit)
    Select Case Val(digit)
    Case 1: GetDigit = "one"
    Case 2: GetDigit = "two"
    Case 3: GetDigit = "three"
    Case 4: GetDigit = "four"
    Case 5: GetDigit = "five"
    Case 6: GetDigit = "six"
    Case 7: GetDigit = "seven"
    Case 8: GetDigit = "eight"
    Case 9: GetDigit = "nine"
    Case Else: GetDigit = ""
    End Select
End Function

[Arkadi]

Ravana, you would have to change ALL instances of SpellIndian in your code... that means also the place where the function is originally called from. Do a replace on the whole project from old name to new, and that should work.

[Ravana]

Thanks Arkadi.

[Arkadi]

No problem