HI

Look at this:

Dim Rng2 As Range
With Worksheets("Data")
Set rng = .Range("a2", .Range("a" & Columns.Count).End(xlToLeft))
End With

Regards,
Per


"darkblue" skrev i meddelelsen
...
Dim rng As Range
With Worksheets("Data")
Set rng = .Range("a2", .Range("a" & Rows.count).End(xlUp))
End With
rng.Select
--------------------

With above code I select all data in column A.
How can I select all data in row 1.
I mean what is the equal code for selecting columns in a row ?
Thank you.