Hallo,versuchs mal damit: Sub DeleteRowIfEmpty() Dim EmptyRow For Each EmptyRow In ActiveSheet.UsedRange 'Check each row, delete if empty. If Application.CountA(EmptyRow.EntireRow) = 0 Then EmptyRow.EntireRow.Delete 'Recursive Structure to call this sub again. DeleteRowIfEmpty End If Next EmptyRowEnd SubViele GruesseNorbert

geschrieben von NJK , 06.05.2000, 02:18 Uhr , 18 mal gelesen