![]() |
|
#1
|
||||
|
||||
![]()
OK, try:
Code:
Sub Demo() Dim iRow As Long With ActiveSheet.UsedRange For iRow = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If .Range("A" & iRow).Value = "(blank)" Then .Rows(iRow).EntireRow.Delete End If Next iRow End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Gabby1991 | Drawing and Graphics | 1 | 01-07-2014 09:14 PM |
unable to delete a horizontal line | jerryny | Word | 2 | 03-31-2013 05:59 PM |
![]() |
konopca | Word VBA | 2 | 06-07-2012 02:44 AM |
![]() |
krishnaoptif | Drawing and Graphics | 11 | 05-29-2012 11:25 AM |
Cannot delete line | adkr | Office | 1 | 04-07-2010 09:26 PM |