Shamima Sultana

Hello Guy,

You cannot open the same Excel sheet in safe mode without closing it first. Safe mode is designed to start Excel without add-ins or other customizations, which requires restarting the application. If you are experiencing issues with a specific sheet, try saving your work, close Excel, then reopen it in safe mode using the Ctrl key method:

1. Press and hold the Ctrl key.
2. While holding Ctrl, click on the Excel icon to open it.
3. A prompt will appear asking if you want to start Excel in safe mode. Click Yes.

This method allows you to open a new instance of Excel in safe mode while keeping your current sheet open.

Regards
ExcelDemy

Hello Srivatsan Guru,

You are most welcome. It’s great to hear that it was helpful to you. Keep learning Excel with ExcelDemy.

Regards
ExcelDemy

Hello Jerry,

Method-3 is working perfectly. To get the page number in a proper way you need to insert the page number first. Follow the given steps to insert the page number in a selected cell.
First select a cell >> go to Developer tab >> from Macros >> select Page_Number_Selected_Cell().
It will insert the page number.
Remember to select the cell sequentially to add page numbers.

Output:

Regards
ExcelDemy

Hello Rolands,

You are most welcome. Thank you for your feedback! I’m glad the solution worked for you. Replacing Target.Address with Target.Column = 5 is a great adjustment for your setup with multiple drop-down cells in column E. It’s wonderful to hear that it continues to work even for newly created and copy-pasted rows.

We used Target.Address initially to target specific cells, making it easy to apply the method to designated areas. This approach provides precision and control, especially useful for varying drop-down list configurations.

Regards
ExcelDemy

Hello Hari Lalam,

You are most welcome. It is great to hear that the Google Sheets method accomplished your task. Keep learning Excel with ExcelDemy.

Regards
ExcelDemy

Hello Raif,

You are most welcome. We are glad to hear that our example worked for you. You can explore more article related to VBA. Keep learning Excel with ExcelDemy.

Regards
ExcelDemy

Hello Samwel Gurt,

Thank you so much. We are glad to hear that you loved our article. You can explore more article related to these topic. Keep learning Excel with ExcelDemy.

Regards
ExcelDemy

Hello Tony Jin,

You are most welcome. Your appreciation means a lot to us. You can explore more article related to these topic. Keep learning Excel with ExcelDemy.

Regards
ExcelDemy

Hello Claudia Sgiarovello,

On our end the VBA code is working perfectly. Rechecked the code to confirm it.

Make sure you replace the curly quotation marks with straight quotation marks to avoid syntax errors in VBA. If the problem persists, double-check the name of the range “CheckListOutput” to ensure it matches exactly with what is in your Excel workbook.

1. Ensure all quotes are straight quotes (“).
2. Check that “CheckListOutput” matches the actual named range in your Excel workbook.
3. Verify that “checkList” matches the name of your ActiveX listbox control.

If these steps don’t resolve the issue, consider providing more details about any specific error messages or behaviors you’re encountering.

Regards
ExcelDemy

Hello Anonymous,

Thank you for your feedback! I’ve updated the document to include detailed explanations for each example, showing exactly how each formula works step-by-step. This should make it easier for you to understand how to adapt the formulas for your own spreadsheets.

I’m glad the initial examples were helpful, and I hope the added explanations will provide the deeper understanding you’re looking for. If you have any more questions or need further clarification, please feel free to ask. Happy spreadsheeting!

Regards
ExcelDemy

Hello Bob,

Thank you for bringing this to our attention. Our template is designed to handle various loan amounts and interest rates. I’ve checked the template again by changing loan amount, interest , tenure etc and it’s working perfectly. I will request you to check, How to Use This Template part of the article.

Templates’ intial image:

Different Loan Amount and Interest Rate:

Another changes:

It sounds like there might be a formatting or input error causing the #VALUE! error. Please ensure that:

Loan Amount and Interest Rate Formats: The values are entered as plain numbers without any special characters or spaces. For example, enter 200000 for $100,000 and 8 for an interest rate of 8%.
Correct Cells: The values are being entered in the correct cells specified for loan amount and interest rate.
If you’ve checked these and are still encountering issues, please feel free to share a screenshot or more details about the error. We’ll be happy to assist further.

Thank you for your patience and understanding.

Regards
ExcelDemy

Hello Andrew,

There is a way to set up to be used repeatedly and routinely but for that you will need to install Adobe Acrobat SDK this is necessary for controlling Acrobat via VBA. Then you will need to use VBA code and Task Schedular.
Copy the VBA code to find the PDF file from a directory.

Sub ImportPDFsFromDirectory()
    Dim AcroApp As Object
    Dim AVDoc As Object
    Dim PDDoc As Object
    Dim jso As Object
    Dim field As Object
    Dim i As Integer
    Dim ws As Worksheet
    Dim filePath As String
    Dim folderPath As String
    Dim fileName As String
    
    ' Set the folder path
    folderPath = "C:\path\to\your\pdf\directory\"
    
    ' Set the worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    i = 1
    
    ' Create Adobe Acrobat objects
    Set AcroApp = CreateObject("AcroExch.App")
    
    ' Loop through all PDF files in the directory
    fileName = Dir(folderPath & "*.pdf")
    Do While fileName <> ""
        filePath = folderPath & fileName
        Set AVDoc = CreateObject("AcroExch.AVDoc")
        
        If AVDoc.Open(filePath, "") Then
            Set PDDoc = AVDoc.GetPDDoc
            Set jso = PDDoc.GetJSObject
            
            ' Extract and write PDF data to Excel
            For Each field In jso.GetFieldNames
                ws.Cells(i, 1).Value = field
                ws.Cells(i, 2).Value = jso.GetField(field).Value
                i = i + 1
            Next field
            
            AVDoc.Close True
        End If
        
        fileName = Dir
    Loop
    
    ' Close Acrobat application
    AcroApp.Exit
End Sub

Now, set up the Task Scheduler:
1. Open Task Scheduler
Search for “Task Scheduler” in the Windows Start menu and open it.

2. Create a Basic Task

o Click on “Create Basic Task…” in the Actions pane.
o Name your task (e.g., “Automate PDF to Excel”) and provide a description.
o Click “Next”.

3. Set Trigger
o Choose when you want the task to start (e.g., Daily, Weekly).
o Click “Next” and set the start date and time.
o Click “Next”.

4. Set Action
o Choose “Start a program” and click “Next”.
o In the “Program/script” field, enter the path to the Excel executable (e.g., C:\Program Files\Microsoft Office\root\Office365\EXCEL.EXE).
o In the “Add arguments (optional)” field, enter the path to your Excel workbook (e.g., “C:\path\to\your\workbook.xlsm”).
o Click “Next”.

5. Finish
o Review your settings and click “Finish”.

6. Configure Task
o Locate your new task in the Task Scheduler Library.
o Right-click it and select “Properties”.
o Go to the “Actions” tab and click “Edit”.
o In the “Add arguments (optional)” field, add the following to run the specific macro:
/e /mImportPDFData
o Click “OK” and then “OK” again to save your changes.

This setup will automatically open the Excel file and run the specified macro at the scheduled times.

Regards
ExcelDemy

Hello Paolo,

You are most welcome. We are glad to hear that you found our solution easy and efficient. Keep finding Excel solutions with ExcelDemy.

Regards
ExcelDemy

Hello Bhabani,

Please fill out this form properly to get the FREE Advanced Excel Exercises with Solutions

I received the exercise sheet via email after filling out the form.

Regards
ExcelDemy

Hello Keith Miller,

I understand your frustration with transitioning from MSQuery to Power Query, especially after being familiar with MSQuery for so long. The learning curve can be a bit daunting, but the good news is that Power Query is incredibly powerful and can handle the task you described quite efficiently.

To join two tables into one data set without resorting to Access or using numerous VLOOKUP formulas, Power Query is indeed your best bet.
Please follow this article to Combine Two Tables Using Power Query in Excel

To create relationship between two tables you can follow the given steps too:
Let’s say, we have two tables describing different products ordered by some customers from separate addresses and their respective prices.

I have created the first column named Customer Information with headings: Customer ID, Name, and Address.

Another table named Order Information has headings like: Name, Product, and Price.

It is noticeable that there must be a common column to create a relationship between the tables.

Here, I will show the method of creating relationships using Pivot Table. In order to demonstrate this method, proceed with the following steps.

Steps:

• First of all, select the data range of the first table (i. e. Customer Information)> go to the Insert tab> click Table.

• Then, click OK on the Create Table dialogue box.

• Now, your table will be created.

• Here, follow the same procedure for the other table (i.e. Order Information).

• Now, click on the Table > go to the Table Design tab> assign a name for the table.

I have named the first table Customer and the second table Order.

• After that, click on the Customer table> go to the Insert tab> and click Pivot Table.

• Here, PivotTable from table or range dialogue box will show up. Mark  Add this data to the Data Model box and click OK.

• Now, the Pivot Table Fields will show up.

• Now, select the data type from both the tables (i.e. Address from the first table and Price from the second table) and click CREATE.

• After that, Create Relationship dialogue box will show up. Here, assign the table names and the common column (i.e. Name) and click OK.

• Finally, Excel will create a relationship between the two tables.

So, these are the steps you can follow to create a relationship between tables using the Pivot Table option.

Read More: How to Create Data Model Relationships in Excel

Download the Excel File: Creating Relationship Between Tables.xlsx

Regards
ExcelDemy

Hello Daz C,

Making AllTaskList sheet a table is not an issue. May be Named Range is not working properly that’s why VLOOKUP is not getting the lookup values.

Please, check the tasklist from Named Manager.
Go to Formulas >> from Defined Names >> select Name Manager.
Check the Tasklist contains =’AllTaskList (2)’!$B:$G

N.B: You can change your list based on your sheet.

Here, I made the AllTaskList a table to check either it’s a problem or not.

Then, checked the Task Detail sheet to see VLLOKKUP is working or not.

Here VLOOKUP is working perfectly.

I am uploading the updated Excel file, please download it from here:
Creating a Task Tracker Using Table.xlsx

Reagards
ExcelDemy

Hello Flipmode,

Thank you for your feedback and for highlighting the importance of accurate formulas. However, the provided formula in the article is giving correct results for the USD to EUR conversion as shown in the example table. The VLOOKUP formula used is correctly referencing the exchange rate and multiplying it with the USD value. Here, we are converting currencies from USD to any other currency.
USD to EURO:

USD to ARS:

N.B: In our article we used exchange rate data of 9/27/2022

Thank you for your feedback. If your specific examples work for reversing the lookup, then it’s a wonderful solution. We appreciate your suggestions and hope other users find your insights useful. Thanks for your contribution!

Regards
ExcelDemy

Hello Ahmed,

You are most welcome. Thanks for your appreciation it means a lot to us. Keep learning Excel with us.

Regards
ExcelDemy

Hello Kumar Chavan,

You need to create two sheets to present your expenses.

Firstly, create Income and Expenditure Account sheet to record all incomes and expenditures for the year, including the deferred income adjustment for repairs.

Then, create Balance Sheet to present the assets, liabilities, and equity as of the year-end date.

Here is your Example Format: Template for Income and Expenditure Account and Balance Sheet.xlsx

Regards
ExcelDemy

Hello Imtiaz,

To do so you need to use two VBA code in your Excel workbook. One in the Module to update date and another in the first sheet where you will update the date. Make sure to replace “Sheet1” with the actual name of the sheet where you will enter the date, and “A1” with the cell reference where the date is located.
Copy and paste the following VBA code into the new module:

Sub UpdateDateInAllSheets()
    Dim ws As Worksheet
    Dim dateValue As Variant
    
    ' Change "Sheet1" to the name of the sheet where you will enter the date
    dateValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
            ws.Range("A1").Value = dateValue
        End If
    Next ws
End Sub

To automatically update the date whenever the date is changed, you need to use the Worksheet_Change event.
In the VBA Editor, double-click the sheet where you will enter the date (e.g., Sheet1) in the Project Explorer window.
Then, paste the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call UpdateDateInAllSheets
    End If
End Sub

Again, replace “$A$1” with the actual cell reference where the date is located.

Now, whenever you change the date in the specified cell on your primary sheet (e.g., Sheet1), the date will automatically be updated in the corresponding cell on all other sheets.
VBA code will assume that the date is located in the same cell on each sheet.

Regards
ExcelDemy

Hello Jacob,

Thanks a lot for sharing this solution. Defining the validation string using a ListObject is indeed a smart approach. By turning the data into a table, we can avoid manually editing column addresses and ensure the code remains functional even if the table moves.
I appreciate the suggestion to make both sets of data into tables for easier referencing. This will definitely help in maintaining the code’s robustness and flexibility.

Regards
ExcelDemy

Hello Tejas,

If the search cell has multiple criteria, you can use the following formula:
=TEXTJOIN(“, “, TRUE, IF(ISNUMBER(SEARCH($E$4:$E$5, B4)), $E$4:$E$5, “”))

It checks if any of the values in the criteria range are found within the text in cell B4. The SEARCH function identifies the presence of these values, and ISNUMBER confirms their existence. The IF function returns the matching values, while TEXTJOIN concatenates them into a single string, separated by commas, ignoring empty results. This allows multiple matches to be displayed in one cell.

Regards
ExcelDemy

Hello Neet,

You are most welcome. We are glad to hear that our article solved your problem. Thanks for your appreciation. Keep learning Excel with us.

Regards
ExcelDemy

Hello Muhammad Farg,

Yes, there are multiple ways to merge data under same headlines. In this article we showed how to merge sheets step by step: How to Merge Sheets in Excel

You can follow this VBA code to merge the data and arrange it at the same time under one headline:
Before using the code make sure both of your sheets contains the same headings.
Sheet1 & Sheet2:

Sub combine_multiple_sheets()
Dim Row_1, Col_1, Row_last, Column_last As Long
Dim headers As Range
Set WB = ThisWorkbook
Set wX = WB.Sheets.Add
wX.Name = "Consolidated"
Set headers = Application.InputBox("Choose the Headers", Type:=8)
headers.Copy wX.Range("A1")
Row_1 = headers.Row + 1
Col_1 = headers.Column
For Each Ws In WB.Worksheets
    If Ws.Name <> "Consolidated" Then
        Ws.Activate
        Row_last = Cells(Rows.Count, Col_1).End(xlUp).Row
        Column_last = Cells(Row_1, Columns.Count).End(xlToLeft).Column
        Range(Cells(Row_1, Col_1), Cells(Row_last, Column_last)).Copy wX.Range("A" & wX.Cells(Rows.Count, 1).End(xlUp).Row + 1)
    End If
Next Ws
Worksheets("Consolidated").Activate
End Sub

Output:

Excel File: Merge Data in Same Headings.xlsx

Regards
ExcelDemy

Hello Guadalupe Valdez,

To get value from another workbook you can use the VLOOKUP function.

In Worksheet2:
In cell B2 Enter the following formula:
=IFERROR(VLOOKUP($A2,[Worksheet1.xlsx]Sheet1!$A$2:$D$5, 2, FALSE), “”)
This formula looks up the Slot number in A2 of Worksheet2 in the range A2
of Worksheet1. The IFERROR function will return an empty string if no match is found.
Then, drag the formula down to A440 cell.

Use the same formula by changing the column number for First and Last name.

In cell C2 of Worksheet2, enter the following formula:
=IFERROR(VLOOKUP($A2, [Worksheet1.xlsx]Sheet1!$A$2:$D$440, 3, FALSE), “”)
In cell D2 of Worksheet2, enter the following formula:
=IFERROR(VLOOKUP($A2, [Worksheet1.xlsx]Sheet1!$A$2:$D$440, 4, FALSE), “”)
Final Output:

Here, I am attaching the Excel Files:
Worksheet1.xlsxhttps://www.exceldemy.com/wp-content/uploads/2024/06/Worksheet2.xlsx
Worksheet2.xlsx

Regards
ExcelDemy

Hello Derek,

We are glad to hear that our solution helped you. Thanks for your appreciation. Keep learning Excel with us.

Regards
ExcelDemy

Hello Michelle,

The “Run-time error ‘9’: Subscript out of range” occurs when a specified sheet or range does not exist. Please check the sheet names and ranges in your Searched_Sheets and Searched_Ranges arrays are correctly spelled and match exactly with your Excel workbook.

I made some changes in the code to check whether sheets and ranges exist in your Excel workbook.
Make sure to update this according to your Excel workbook:
Searched_Sheets = Array(“Dataset 1”, “Dataset 2”) # Update it with your sheet name.
Searched_Ranges = Array(“B5:F23”, “B5:F23”) # Update it with your ranges.

Added SheetExists function it will check if a sheet exists before accessing it.
Error Handling will check for the existence of sheets to prevent “Subscript out of range” errors.

Sub SearchMultipleSheets()
    Dim Main_Sheet As String
    Dim Search_Cell As String
    Dim SearchType_Cell As String
    Dim Paste_Cell As String
    Dim Searched_Sheets As Variant
    Dim Searched_Ranges As Variant
    Dim Copy_Format As Boolean
    Dim Last_Row As Long
    Dim Last_Column As Long
    Dim Used_Range As Range
    Dim Value1 As String
    Dim Case_Sensitive As Boolean
    Dim Count As Long
    Dim S As Integer
    Dim i As Long
    Dim j As Long
    Dim Rng As Range
    Dim Value2 As String
    Dim Paste_Range As Range

    ' Initialize variables
    Main_Sheet = "VBA"
    Search_Cell = "B5"
    SearchType_Cell = "C5"
    Paste_Cell = "B9"
    Searched_Sheets = Array("Dataset 1", "Dataset 2")
    Searched_Ranges = Array("B5:F23", "B5:F23")
    Copy_Format = True

    ' Clear the previous results
    Last_Row = Sheets(Main_Sheet).Cells(Range(Paste_Cell).Row, Range(Paste_Cell).Column).End(xlDown).Row
    Last_Column = Sheets(Main_Sheet).Cells(Range(Paste_Cell).Row, Range(Paste_Cell).Column).End(xlToRight).Column
    Set Used_Range = Sheets(Main_Sheet).Range(Cells(Range(Paste_Cell).Row, Range(Paste_Cell).Column), Cells(Last_Row, Last_Column))
    Used_Range.ClearContents
    Used_Range.ClearFormats

    ' Get the search value and type
    Value1 = Sheets(Main_Sheet).Range(Search_Cell).Value
    Count = -1
    If Sheets(Main_Sheet).Range(SearchType_Cell).Value = "Case-Sensitive" Then
        Case_Sensitive = True
    ElseIf Sheets(Main_Sheet).Range(SearchType_Cell).Value = "Case-Insensitive" Then
        Case_Sensitive = False
    Else
        MsgBox "Choose a Search Type."
        Exit Sub
    End If

    ' Search through the sheets and ranges
    For S = LBound(Searched_Sheets) To UBound(Searched_Sheets)
        If SheetExists(Searched_Sheets(S)) Then
            Set Rng = Sheets(Searched_Sheets(S)).Range(Searched_Ranges(S))
            For i = 1 To Rng.Rows.Count
                For j = 1 To Rng.Columns.Count
                    Value2 = Rng.Cells(i, j).Value
                    If PartialMatch(Value1, Value2, Case_Sensitive) = True Then
                        Count = Count + 1
                        Rng.Rows(i).Copy
                        Set Paste_Range = Sheets(Main_Sheet).Cells(Range(Paste_Cell).Row + Count, Range(Paste_Cell).Column)
                        If Copy_Format = True Then
                            Paste_Range.PasteSpecial Paste:=xlPasteAll
                        Else
                            Paste_Range.PasteSpecial Paste:=xlPasteValues
                        End If
                    End If
                Next j
            Next i
        Else
            MsgBox "Sheet " & Searched_Sheets(S) & " not found."
        End If
    Next S
    Application.CutCopyMode = False
End Sub

Function PartialMatch(Value1 As String, Value2 As String, Case_Sensitive As Boolean) As Boolean
    Dim Matched As Boolean
    Dim i As Long

    Matched = False
    For i = 1 To Len(Value2)
        If Case_Sensitive Then
            If Mid(Value2, i, Len(Value1)) = Value1 Then
                Matched = True
                Exit For
            End If
        Else
            If Mid(LCase(Value2), i, Len(Value1)) = LCase(Value1) Then
                Matched = True
                Exit For
            End If
        End If
    Next i
    PartialMatch = Matched
End Function

Function SheetExists(ByVal SheetName As String) As Boolean
    On Error Resume Next
    SheetExists = Not Sheets(SheetName) Is Nothing
    On Error GoTo 0
End Function

Regards
ExcelDemy

Hello Lucy Jackson,

Thanks for your appreciation, it means a lot to us. We are glad to hear that our article solved your problem. Keep learning Excel with us.

Regards
ExcelDemy

Hello Zayaan,

You are most welcome. Thanks for your appreciation. We have a category of pivot table and data analysis. We will create more pivot table for data analysis and power pivot. Keep learning Excel with us.

Please explore our this section.
Pivot Table in Excel
Data Analysis in Excel
Power Pivot

Regards
ExcelDemy

Hello Praveen

As we used digit limit in our existing code that’s why it is showing this warning.

Don’t worry! We have updated the existing VBA user-defined function to overcome the problem and work with much larger numbers. In the Indian numbering system, we use terms such as Thousand, Lakh, Crore, Arab, Kharab, Neel, Padma, and Shankh to express large numbers. So, the user-defined function will return the word-converted result using these terms. Moreover, we will use an Excel built-in TEXT function to get accurate results for huge numbers.

Use the following updated code:

Function AdvancedWord(SNum As String) As String

    Dim zDPInt As Integer
    Dim zArrPlace As Variant
    Dim zRStr_Paisas As String
    Dim zNumStr As String
    Dim zP As Integer
    Dim zTemp As String
    Dim zStrTemp As String
    Dim zRStr As String

    zArrPlace = Array("", " Thousand ", " Lakh ", " Crore ", " Arab ", " Kharab ", " Neel ", " Padma ", " Shankh ")

    If SNum = "" Then
        AdvancedWord = ""
        Exit Function
    End If

    zNumStr = Trim(CStr(SNum))

    If zNumStr = "" Then
        AdvancedWord = ""
        Exit Function
    End If

    zRStr = ""

    If (Val(zNumStr) >= 1E+19) Then
        AdvancedWord = "Digit exceeds Maximum limit"
        Exit Function
    End If

    zDPInt = InStr(zNumStr, ".")

    If zDPInt > 0 Then
        If (Len(zNumStr) - zDPInt) = 1 Then
            zRStr_Paisas = word_GetT(Left(Mid(zNumStr, zDPInt + 1) & "0", 2))
        ElseIf (Len(zNumStr) - zDPInt) > 1 Then
            zRStr_Paisas = word_GetT(Left(Mid(zNumStr, zDPInt + 1), 2))
        End If
        zNumStr = Trim(Left(zNumStr, zDPInt - 1))
    End If

    If InStr(zNumStr, "E") > 0 Then
        zNumStr = CDec(zNumStr)
    End If

    zP = 0

    Do While zNumStr <> ""
        If Len(zNumStr) > 2 Then
            If zP = 0 Then
                zTemp = Right(zNumStr, 3)
                zNumStr = Left(zNumStr, Len(zNumStr) - 3)
            Else
                zTemp = Right(zNumStr, 2)
                zNumStr = Left(zNumStr, Len(zNumStr) - 2)
            End If
        Else
            zTemp = zNumStr
            zNumStr = ""
        End If

        zStrTemp = ""

        If Val(zTemp) > 99 Then
            zStrTemp = word_GetH(Right(zTemp, 3), zP)
        ElseIf Val(zTemp) <= 99 And Val(zTemp) > 9 Then
            zStrTemp = word_GetT(Right(zTemp, 2))
        ElseIf Val(zTemp) < 10 Then
            zStrTemp = word_GetD(Right(zTemp, 2))
        End If

        If zStrTemp <> "" Then
            zRStr = zStrTemp & zArrPlace(zP) & zRStr
        End If

        zP = zP + 1
    Loop

    If zRStr = "" Then
        zRStr = "No Rupees"
    Else
        zRStr = "Rupees " & zRStr
    End If

    If zRStr_Paisas <> "" Then
        zRStr_Paisas = " and " & zRStr_Paisas & " Paisas"
    End If

    AdvancedWord = zRStr & zRStr_Paisas & " Only"

End Function

Function word_GetH(zStrH As String, zP As Integer) As String
    
    Dim zRStr As String

    If Val(zStrH) < 1 Then
        word_GetH = ""
        Exit Function
    Else
        zStrH = Right("000" & zStrH, 3)
        If Mid(zStrH, 1, 1) <> "0" Then
            zRStr = word_GetD(Mid(zStrH, 1, 1)) & " Hundred "
        End If

        If Mid(zStrH, 2, 1) <> "0" Then
            zRStr = zRStr & word_GetT(Mid(zStrH, 2))
        Else
            zRStr = zRStr & word_GetD(Mid(zStrH, 3))
        End If
    End If

    word_GetH = zRStr

End Function

Function word_GetT(zTStr As String) As String
    
    Dim zTArr1 As Variant
    Dim zTArr2 As Variant
    Dim zRStr As String

    zTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    zTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

    If Val(Left(zTStr, 1)) = 1 Then
        zRStr = zTArr1(Val(Mid(zTStr, 2, 1)))
    Else
        If Val(Left(zTStr, 1)) > 0 Then
            zRStr = zTArr2(Val(Left(zTStr, 1)) - 1)
        End If
        zRStr = zRStr & word_GetD(Right(zTStr, 1))
    End If

    word_GetT = zRStr
    
End Function

Function word_GetD(zDStr As String) As String
    
    Dim zArr_1 As Variant

    zArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")

    If Val(zDStr) > 0 Then
        word_GetD = zArr_1(Val(zDStr) - 1)
    Else
        word_GetD = ""
    End If
    
End Function