My solution,
Code:If Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row >= 500 Then Range("A" & Rows.Count).End(xlUp)(-498).Resize(500, 6).Select Else Range("A1:F500").Select ..... End IF
My solution,
Code:If Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row >= 500 Then Range("A" & Rows.Count).End(xlUp)(-498).Resize(500, 6).Select Else Range("A1:F500").Select ..... End IF
Last edited by mrprofit; 04-11-2014 at 05:55 PM.
Bookmarks