faeem81

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Z As Long

    Dim xVal As String

    On Error Resume Next

    If Intersect(Target, Range("C8:C100")) Is Nothing Then Exit Sub

faeem81

Public Sub generateRandNum()
    'Define your variabiles
    lowerbound = Range("D22")
    upperbound = Range("F22")
    Set randomrange = Range("B24:F43")
    
    randomrange.ClearContents
    For Each rng1 In randomrange
        counter = counter + 1
    Next

faeem81

Option Explicit
'Main Function
Function SpellNumberWC(ByVal MyNumber)
    Dim Dollars, Cents, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "

faeem81

Option Explicit
'Main Function www.MSOfficeGeek.com
Function SpellNumber(ByVal MyNumber, Optional MyCurrency As String = "")
    Dim Dollars, cents, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "

faeem81

Option Explicit
'Main Function www.MSOfficeGeek.com
Function SpellNumber2(ByVal MyNumber, Optional MyCurrency As String = "")
    Dim Dollars, Cents, Temp
    Dim DecimalPlace, Count, x
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Lacs "
    Place(4) = " Crores "
    Place(5) = " Hundred Crores "

faeem81

/**
 * msofficegeek.com Spell Number Indian Rupees
 * @customfunction
 */
function SpellNumberINR(input) {
  const rupees = Number(parseInt(input, 10));
  const output = [];

  if (rupees === 0) {
    output.push("zero");