Do While Loop VBA

[anand3dinesh]

Dear Friends,

i have this below code for Do While Loop. when i run this code a attached error occurs, i have no idea why variable "d" will update to value 3 even i have only 2 rows of data.
Any Help please?

Do While Cells(d, 2).Value <> ""

Set Audit = Application.Workbooks.Open(UI.Range("B" & d).Value)
Audit.Sheets("Vehicles").Activate
Audit.Sheets("Vehicles").Unprotect
Audit.Sheets("Vehicles").AutoFilterMode = False
Audit.Sheets("Vehicles").Range("A1:A1").AutoFilter 2, ">" & 1, xlFilterValues
Audit.Sheets("Vehicles").Rows("1:1").Hidden = True
Audit.Sheets("Vehicles").Range("A1").CurrentRegion.Copy
WB.Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Audit.Close False
d = d + 1

Loop

Thanks,
Dinesh

 

[davesexcel]

The code thinks there is something there.
see the result.

msgbox cells(rows.count,"B").end(xlup).row

 

[anand3dinesh]

i figured it out, Thanks for your reply

Cheers