I'm assuming your numbers are formatted to two decimal places because you
showed us the thousands separator in your example values (so that leads me
to believe your values are formatted... your last sentence leads me to
believe that as long as they are formatted, you have included the two
decimal places along with the thousands separator in that format). If the
only values on the (active) worksheet are numbers or blank cells, then you
can use this macro...
Sub FindDecimalNumbers()
Dim Cell As Range, U As Range
For Each Cell In ActiveSheet.UsedRange
If Cell.Text Like "*#.##" And (Not Cell.Text Like "*.00") Then
If U Is Nothing Then
Set U = Cell
Else
Set U = Union(U, Cell)
End If
End If
Next
U.Select
End Sub
If, on the other hand, you can have text values on the worksheet along with
your numbers AND some of those text values can end in a digit followed by a
dot followed by two more digits, then use this macro instead...
Sub FindDecimalNumbers()
Dim Cell As Range, U As Range, SC As Range
On Error Resume Next
Set SC = ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeConstants, xlNumbers)
If SC Is Nothing Then Exit Sub
On Error GoTo 0
For Each Cell In SC
If Cell.Text Like "*.*" And (Not Cell.Text Like "*.00") Then
If U Is Nothing Then
Set U = Cell
Else
Set U = Union(U, Cell)
End If
End If
Next
U.Select
End Sub