Sub ChangeCaseUpper() Dim cell As Range ' Convert selected cells to Upper Case On Error Resume Next For Each cell In Selection If cell.HasFormula = False Then cell.Value = UCase(cell.Value) End If Next cell End Sub
To fix the data-type limitation caused by text-based currency formatting, the developer included this utility function.
On the tab bottom pane, look for the warning labeled: "This file came from another computer and might be blocked to help protect this computer."
: Reverses the conversion or handles specific formatting for Indian currency. Sureshaddin.xla
is a legacy Microsoft Excel add-in primarily used for converting numeric values into words in the Indian numbering system (Lakhs and Crores). It is particularly popular for generating invoices where financial amounts must be displayed in text format. Key Features
Because .xla files are legacy Excel add-in formats (supported in versions from Excel 2003 through modern Microsoft 365), they require a specific installation path to remain active across different workbooks.
=REVINR(Cell_Reference) : Reverts the text-formatted INR result back into a standard number format so it can be used for further mathematical calculations. Sub ChangeCaseUpper() Dim cell As Range ' Convert
If you are unsure about the of the file on your system, I can help you find virus scanning steps or show you how to disable macros safely.
If you run into compatibility issues or corporate IT security policies that prevent you from installing third-party .xla scripts, you can achieve similar results using native Excel features:
┌──────────────────────────────────────────────────────────┐ │ SureshAddin.xla │ └────────────────────────────┬─────────────────────────────┘ │ ┌─────────────────────┼─────────────────────┐ ▼ ▼ ▼ =INR(cell) =REVINR(cell) =RSWORDS(cell) Formats numbers into Reverts string back Converts number to Indian Rupee styling. to mathematical raw spelled-out text in numerical format. "Rupees & Paise" format. 1. The =INR() Function It is particularly popular for generating invoices where
pwd = InputBox("Enter the password to unprotect sheets (leave blank if no password):", "Unprotect Sheets")
' Delete the menu if it already exists Call DeleteMenu