>
> Hey,
Check this and Let me know.
> Sub del_br()
Dim coun As Long
With ActiveSheet
For coun = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If WorksheetFunction.CountA(.Rows(coun)) = 0 Then
ActiveSheet.Rows(coun).Delete
End If
Next
En
Hi
find required info on below link
http://www.vbaexpress.com/kb/getarticle.php?kb_id=395
On 10/7/10, Rajat Kapoor wrote:
>
> I wanted to know how can one delete all blank rows & columns using
> VBA? Suppose in Cell A1 there is data but in other cells with row 1
> there is no data. Thus we can s
I wanted to know how can one delete all blank rows & columns using
VBA? Suppose in Cell A1 there is data but in other cells with row 1
there is no data. Thus we can say this row is not blank. BUt taking
other example suppose there is data in Cell C1, A3, A4. But entire row
i.e ROW - 2 is blank. How