Dim cell As Range

On Error Resume Next
Set cell = Columns("A:A").Find(1)
On Error GoTo 0
If Not cell Is Nothing Then
cell.Resize(Cells(Rows.Count, "A").End(xlUp).Row - cell.Row + 1,
2).Select
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Dave" wrote in message
...
Hi

I'm making a macro and need some Help.

How could I Hightlight Numbers and then all the cells to the right of
these
numbers, so I can copy to other workbooks

Starting in A1 I need to find down in column A for the number 1
When found highlight all numbers below it, so if 1 to 20, 1 to 26, etc all
would be hightlighted
Then highlight all cells with data to the right of these numbers "as well"
example A200 - N226 then copy to clipboard

Thanks in advance

Dave