Hi Again

One way is to check the cell value and store the address in a string and
select at the end. There should be a much better way.

Sub Macro()
Dim strAddress As String, cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.Value 100000000000# Then _
strAddress = strAddress & "," & cell.Address
Next
If strAddress < "" Then Range(Mid(strAddress, 2)).Select
End Sub

PS: You can modify the condition to suit

If this post helps click Yes
---------------
Jacob Skaria


"Faraz A. Qureshi" wrote:

What code would:
1. Find & Select cells;
2. With NUMBERS;
3. Which are of 12 digits, i.e. = 100000000000 & <=999999999999?
--
Best Regards,

Faraz