G Guest Sep 25, 2007 #2 Sub test() LastRow = Cells(Rows.Count, "L").End(xlUp).Row LastCol = Cells(4, Columns.Count).End(xlToLeft).Column Set MyRange = Range("L4", Cells(LastRow, LastCol)) MyRange.Select End Sub
Sub test() LastRow = Cells(Rows.Count, "L").End(xlUp).Row LastCol = Cells(4, Columns.Count).End(xlToLeft).Column Set MyRange = Range("L4", Cells(LastRow, LastCol)) MyRange.Select End Sub