Excel 2003 VBA - select and delete rows

[Legacy 215653]

I am opening a csv file using an excel 2003 object in VB6.

I am currently looing through the rows in the sheet and bypassing all the rows which do not have any data in columns A to D (other data may or may not be in other columns).

What I want to do is select and delete all rows which do not contain any information in colunms A to D BEFORE looping through the spreadsheet object to process the remaining rows which DO have data in columns A to D.

Is there a quick way to select and delete these rows? This select/delete has to be performed in VBA/VB6 code as this is an automated process.

 

[ClimoC]

For i = Range("E65000").end(xlup).row to 2 step -1

if Range("A" & i).value = vbnullstring and range("B" & i).value = vbnullstring and range("C" & i).value = vbnullstring and range("D" & i).value = vbnullstring then Range("A" & i).entirerow.delete shift:=xlup
next i

Not pretty but works easy peasy

 

[Legacy 215653]

ClimoC

Thanks for the code but.....

Thats doing what I didnt want to do i.e. looping through all the rows one by one and deleting the row. Im doing this already but just skipping over the rows with no data in the first 4 columns.

What Im afeter is a fuction or vba code to select all blank rows as a selection/range without looping through all the rows. Once I have the selection/range, then I would assume its a simple matter of selection.delete?