Adding Indian Rupee Symbol to an existing VBA code.

I have the following code from member shg.

Sub ApplyLakh()
FondOLakh Selection
End Sub

Sub FondOLakh(r As Range)
' shg 2009-0607
' Applies Lakh/Crore formatting to numeric cells in r
' One 1
' Ten 10
' Hundred 100
' Thousand 1,000
' Lakh 1,00,000
' Crore 1,00,00,000
' Thousand Crore 1,000,00,00,000
' Lakh Crore 1,00,000,00,00,000

Const dEps As Double = 0.001
Const LN10 As Double = 2.30258509299405

Static vFmt As Variant

Dim cell As Range
Dim i As Long
Dim dLog As Double

If IsEmpty(vFmt) Then
vFmt = Array( _
"0.00_);(0.00)", _
"00.00_);(00.00)", _
"000.00_);(000.00)", _
"0\,000.00_);(0\,000.00)", _
"00\,000.00_);(00\,000.00)", _
"0\,00\,000.00_);(0\,00\,000.00)", _
"00\,00\,000.00_);(00\,00\,000.00)", _
"0\,00\,00\,000.00_);(0\,00\,00\,000.00)", _
"00\,00\,00\,000.00_);(00\,00\,00\,000.00)", _
"000\,00\,00\,000.00_);(000\,00\,00\,000.00)", _
"0\,000\,00\,00\,000.00_);(0\,000\,00\,00\,000.00)", _
"00\,000\,00\,00\,000.00_);(00\,000\,00\,00\,000.00)", _
"#0\,00\,000\,00\,00\,000.00_);(#0\,00\,000\,00\,00\,000.00)")
End If

Application.EnableEvents = False

For Each cell In Intersect(r, r.Parent.UsedRange)
If IsNumeric(cell.Value) Then
If cell.Value = 0# Then
cell.NumberFormat = "-??_)"
Else
i = Int(Log(Abs(cell.Value + dEps)) / LN10)
If i < 0 Then i = 0
If i > UBound(vFmt) Then i = UBound(vFmt)
cell.NumberFormat = vFmt(i)
End If
End If
Next cell

Application.EnableEvents = True
End Sub

This macro works perfectly and shows negative numbers in parentheses. How do I add an Indian rupee symbol to this code so that each item will appear with the rupee symbol?

Try this:

Please Login or Register  to view this content.

It worked for positive numbers but no rupee symbol before negative numbers in parentheses. Thank you so much.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon (Next to Add Reputation) located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.