hmm..
formating can vary a lot..
there is a better way Typename

Sub testttt4()
Dim c As Range
' Set c = ActiveSheet.[A1]
For Each c In ActiveSheet.UsedRange
If TypeName(c.Value) = "Currency" Then
c.Select
MsgBox " selected cell is a currency cell"
exit sub
End If
Next c
End Sub