ik vond bijgaand script
deze verwijdert alle lege rijen in alle tabbladen doch ik zoek script voor 4 specifieke tabbladen.
ik dacht "sheets.count" te vervangen door "sheets(Array("1";"3";"9";"10"))" doch krijg het niet werkend.
deze verwijdert alle lege rijen in alle tabbladen doch ik zoek script voor 4 specifieke tabbladen.
ik dacht "sheets.count" te vervangen door "sheets(Array("1";"3";"9";"10"))" doch krijg het niet werkend.
Code:
Sub lege_regels_verwijderen()
For y = 1 To Sheets.Count
L_Row = Sheets(y).Range("A65000").End(xlUp).Row
For i = L_Row To 1 Step -1
If WorksheetFunction.CountA(Sheets(y).Rows(i)) = 0 Then Sheets(y).Rows(i).Delete
Next
Next
End Sub