Hi. I have a way to find the last row in a column:

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

How would I find the last column in a row?

Thanks!

Mike.

for row 10 for example:

rwNumber = 10
lastColumn = Cells(rwnumber,columns.count).End(xltoLeft).Column

--
Regards,
Tom Ogilvy

"Mike D." wrote in message
...
Hi. I have a way to find the last row in a column:

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

How would I find the last column in a row?

Thanks!

Mike.

Thanks, Tom.

Is there a way to refer to the column letter instead? I
am trying to select all the columns with data in it by
using the "Columns" command.

For instance, Columns("A:C").select would select the first
three columns. Is there a way to use the column numbers
instead?

Thanks again,
Mike.

-----Original Message-----
for row 10 for example:

rwNumber = 10
lastColumn = Cells(rwnumber,columns.count).End
(xltoLeft).Column

--
Regards,
Tom Ogilvy

"Mike D." wrote in
message
...
Hi. I have a way to find the last row in a column:

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

How would I find the last column in a row?

Thanks!

Mike.


.

Columns(1).Resize(,3)

would be A:C

But you could do

Dim rng as Range
set rng = Range(Cells(1,1),Cells(1,256).End(xltoLeft))
msgbox rng.entireColumn.Address

--
Regards,
Tom Ogilvy

wrote in message
...
Thanks, Tom.

Is there a way to refer to the column letter instead? I
am trying to select all the columns with data in it by
using the "Columns" command.

For instance, Columns("A:C").select would select the first
three columns. Is there a way to use the column numbers
instead?

Thanks again,
Mike.

-----Original Message-----
for row 10 for example:

rwNumber = 10
lastColumn = Cells(rwnumber,columns.count).End
(xltoLeft).Column

--
Regards,
Tom Ogilvy

"Mike D." wrote in
message
...
Hi. I have a way to find the last row in a column:

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

How would I find the last column in a row?

Thanks!

Mike.


.

Thanks, Tom!
-----Original Message-----
Columns(1).Resize(,3)

would be A:C

But you could do

Dim rng as Range
set rng = Range(Cells(1,1),Cells(1,256).End(xltoLeft))
msgbox rng.entireColumn.Address

--
Regards,
Tom Ogilvy

wrote in message
...
Thanks, Tom.

Is there a way to refer to the column letter instead? I
am trying to select all the columns with data in it by
using the "Columns" command.

For instance, Columns("A:C").select would select the
first
three columns. Is there a way to use the column numbers
instead?

Thanks again,
Mike.

-----Original Message-----
for row 10 for example:

rwNumber = 10
lastColumn = Cells(rwnumber,columns.count).End
(xltoLeft).Column

--
Regards,
Tom Ogilvy

"Mike D." wrote
in
message
...
Hi. I have a way to find the last row in a column:

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

How would I find the last column in a row?

Thanks!

Mike.


.



.