VBA verwijderd rijen in plaats van kolommen

[arienlans]

Ik heb een VBA gemaakt om namen uit verschillende tabbladen te halen
Maar nu verwijderd die de rijen van de namen in plaats van Kolom A en B.

Ook is die erg traag.

Ariën

 

[Haaren101]

Kan je ook even aangeven in welke macro/sub het mis gaat

Ron

 

[arienlans]

In sub MakeTotalOverView gaat het fout

 

[Haaren101]

In die macro staat:

If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then Rng.Rows(R).EntireRow.Delete

Gaat het daar fout?
Loop anders eens met F8 door de VBA code en kijk waar het mis gaat. Moet je wel je screenupdating aan laten staan

Ron