Reply to thread

Message: [QUOTE="GS, post: 6656706"] Don Guillett pretended : Possible alternative... Const sRowsToDelete As String = _ "401:406,351:356,301:306,251:256,201:206,151:156,101:106,51:56,1:6" 'use if Resize is NOT constant Const sRowsToDelete As String = "401,351,301,251,201,151,101,51,1" 'use if Resize is constant Dim vRowsToDelete vRowsToDelete = Split(sRowsToDelete, ",") For i = LBound(vRowsToDelete) To UBound(vRowsToDelete) Rows(vRowsToDelete(i)).Delete 'Rows(vRowsToDelete(i)).Resize(5).Delete Next 'i [/QUOTE]