Don't know your formats, so I will use a format of £#,##0.00;(£#,##0.00)

Dim cell As Range
Dim rng As Range

For Each cell In Selection
If Not IsEmpty(cell) Then
If IsNumeric(cell.Value) Then
If cell.NumberFormat < "£#,##0.00;(£#,##0.00)" Then
If rng Is Nothing Then
Set rng = cell
Else
Set rng = Union(rng, cell)
End If
End If
End If
End If
Next cell

If Not rng Is Nothing Then
rng.Select
End If

--
HTH

Bob Phillips

"bvm" wrote in message
...
In a multi-currency environment my staff keep mixing up currencies in
their spreadsheets e.g. subtracting costs in dollars from revenues in
Euros.

I would like to develop a macro that examines formulas in a spreadsheet
and looks for cells formatted in different currencies.

Some pointers on how to get started would be appreciated.