Today a question from someone who frequently uses three currency styles in Excel: USD, EGP, and SAR. Excel makes it easy to choose USD, GBP, EUR, CHF but if your currency is not in that drop-down, then you are scrolling through an insanely long list.

It seems that there is no good way to change the five currencies in the drop-down on the Excel home tab.

Instead, I propose a scheme where you can add SAR or EGP from a button on the Quick Access Toolbar and that button will also add the currency to the Cell Styles gallery that travels with the workbook. This means that your co-workers can choose SAR or EGP without having anything in their personal macro workbook.

Check out my courses on Retrieve: https://mrexcel.retrieve.com/store/#/

Table of Contents
(0:00) Difficult to choose most currencies
(2:19) The macro
(3:42) Adding to Quick Access Toolbar
(4:55) Testing in new workbook
(5:25) Adding Styles Gallery to QAT
(7:34) New Excel learning guides on Retrieve platform

Here is the code from the Personal Macro Workbook for SAR:
Sub ApplySARStyle()
‘ Attempt to apply SAR style
‘ If it does not exist, create it.
Err.Clear
On Error Resume Next
Selection.Style = “SAR”
If Err.Number = 0 Then
‘ The style already exists. Okay to exit
On Error GoTo 0
Exit Sub
End If
‘ If you get here, SAR does not exist.
‘ Format the selection and create a new style
ActiveWorkbook.Styles.Add Name:=”SAR”
With ActiveWorkbook.Styles(“SAR”)
.IncludeNumber = True
.IncludeFont = False
.IncludeAlignment = False
.IncludeBorder = False
.IncludePatterns = False
.IncludeProtection = False
.NumberFormat = “[$SAR] #,##0”
End With
Selection.Style = “SAR”
End Sub