beste lezer,
Wat gaat er hier fout.
Hij loopt steeds vast op
Bedoeling is om lege rijen te verwijderen door te sorteren in kolom A.
Alvast bedankt voor je reactie !!!
#beginner
Wat gaat er hier fout.
Hij loopt steeds vast op
Code:
Columns("A:ZZ").Select
Code:
Sheets("lijst").Select
Columns("A:b").Select
Selection.Sort _
Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Range("A65536").End(xlUp).Offset(1, 0).Select
Bedoeling is om lege rijen te verwijderen door te sorteren in kolom A.
Alvast bedankt voor je reactie !!!
#beginner