Hi,


The code mentioned below is working perfectly as it should.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("SrcDepOnPaint").Address Then
        Dim Src As String
        Dim Rng As Range
        Set Rng = Sheets("Report").Range("RngDepOnPaint")
        Src = Range("SrcDepOnPaint").Text
                
        If Src = "NO" Then
            Rng.EntireRow.Hidden = True
        End If
        
        If Src = "YES" Then
            Rng.EntireRow.Hidden = False
        End If
    End If
End Sub
But after creating module with below mentioned code the above code to hide rows does not work & when I remove the below mentioned code from the module everything works fine. 

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) = " LAKH "
    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
   
    SpellIndian = Rupees & " ONLY"
End Function
 '*******************************************
 ' Converts a number from 100-999 into text *
 '*******************************************
Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    Dim en 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
        If Mid(MyNumber, 2, 3) = "00" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " HUNDRED"
        Else
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " HUNDRED & "
        End If
    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 = "NINTY "
        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
Any help ?