Create a UDF


Function CellFormat(rng As Range)
If rng.Cells.Count 1 Then

CellFormat = CVErr(xlErrRef)
Else

CellFormat = rng.NumberFormat
End If
End Function

and use lkike so

=CellFormat(B2)

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Yendorian" wrote in message
...
I need to identify which currency format is being used in a particular cell
on an Excel worksheet. (Excel 2003). Ideally I'd like the format to appear
next to the cell in question.
e.g. $ 100.00 [$ #,##0.00]
Can anyone tell me how to do this, please? Thanks