lcol/lrow question

[Offroadracer_814]

To All:

Thanks for your help in advance.

Below is the VBA I have that work finding the last row in my macro when I do borders. It works great.

Dim lrow As Long
lrow = Range("A65536").End(xlUp).Row
Range("A3:U" & lrow).Select

What I am wanting to do is find a VBA that will find the last row and last column.

Thanks

Kevin

 

[Joe4]

The code you posting only finds the last row with data in column A, and only if you have no data below row 65536 (which was the maximum number of rows in the old versions of Excel).
The new versions of Excel now allow over 1 million rows. So here is a version that will find the last row in column A, regardless of the number of rows:

lrow = Cells(Rows.Count, "A").End(xlUp).Row

If you want to find the last row/column, where you do not want to limit it to a certain row or column, one way is to use the last cell functionality. i.e.

Dim lrow as Long
Dim lcol as Long
lrow = Range("A1").SpecialCells(xlLastCell).Row
lcol = Range("A1").SpecialCells(xlLastCell).Column

 

[Fluff]

Try

Sub Offroadracer()
   Dim Lrow As Long, Lcol As Long
   Lrow = Range("A" & Rows.Count).End(xlUp).Row
   Lcol = Cells([COLOR=#ff0000]1[/COLOR], Columns.Count).End(xlToLeft).Column
   Range("A3", Cells(Lrow, Lcol)).Select
End Sub

change the value in red to a row that will always have data in the last column