Using a user-defined-function and Styles, it can be done.

1) create a style called 'POUND'
- Select 'Format'
- Select 'Style'
- Select 'Modify'
- Select 'Number' tab
- Select 'Currency'
- Change the 'Symbol' to 'English (United Kingdom)'
- Select 'OK'
- Change the 'Style Name' to "POUND" from "Normal"
- Select 'OK'
2) create a style called 'EURO'
- see above steps / selecting the Euro symbol
3) The style 'Currency' has probably already been created.
- If not, create it using the same steps as above
4) create the following UDF

'/=======================================/
' Function Purpose: Return the name of the style of the selected
' cell formatted to UPPER CASE
' ie the 'Currency' style returns 'CURRENCY'
'
Public Function CellStyle(Select_Cell As Range) As String
On Error Resume Next

Application.Volatile

CellStyle = UCase(Select_Cell.Style)

End Function
'/=======================================/

5) FormatConditional Formatting...
Condition 1:
=CellStyle(B1)="POUND"
and coloring, etc.
Condition 2:
=CellStyle(B1)="CURRENCY"
and coloring, etc.
Condition 3:
=CellStyle(B1)="EURO"
and coloring, etc.

HTH,
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"EA" wrote:

Does anyone know if it is possible to conditionally format cells based on
whether a cell is formatted to display either £, $ or Euro?