[brewster56]

Is there a way to delete 100's of blank rows programatically ?
--
BB

[Mike H]

Hi,

Right click your sheet tab, view code and paste this in and run it

Sub Kill_Blank_Rows()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then
ActiveSheet.UsedRange.Rows(i).EntireRow.Delete
End If
Next i
End Sub

Mike

"brewster56" wrote:

Is there a way to delete 100's of blank rows programatically ?
--
BB

[Chip Pearson]

Worksheets("Sheet1").Rows(StartRowNumber).Resize(N umberOfRows).Delete

Cordially,
Chip Pearson
Microsoft MVP
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Wed, 26 Nov 2008 13:51:00 -0800, brewster56
wrote:

Is there a way to delete 100's of blank rows programatically ?

[AJB]

ASAP utilities is an free add-in that has a tool to delete blank rows and
columns

"brewster56" wrote:

Is there a way to delete 100's of blank rows programatically ?
--
BB

[brewster56]

You are awesome - thank you very much both for the quick reply (saved my day)
and the fact that it worked first time and solved my problem
--
BB


"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste this in and run it

Sub Kill_Blank_Rows()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then
ActiveSheet.UsedRange.Rows(i).EntireRow.Delete
End If
Next i
End Sub

Mike

"brewster56" wrote:

Is there a way to delete 100's of blank rows programatically ?
--
BB

[Mike H]

Glad I could help

"brewster56" wrote:

You are awesome - thank you very much both for the quick reply (saved my day)
and the fact that it worked first time and solved my problem
--
BB


"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste this in and run it

Sub Kill_Blank_Rows()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then
ActiveSheet.UsedRange.Rows(i).EntireRow.Delete
End If
Next i
End Sub

Mike

"brewster56" wrote:

Is there a way to delete 100's of blank rows programatically ?
--
BB

[jeffc4442]

Hi:

I copied it into view code, but i can't figure out how to "run it." can you
tell me how please?

thanks.

Jeff

"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste this in and run it

Sub Kill_Blank_Rows()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then
ActiveSheet.UsedRange.Rows(i).EntireRow.Delete
End If
Next i
End Sub

Mike

"brewster56" wrote:

Is there a way to delete 100's of blank rows programatically ?
--
BB

[Don Guillett]

You should NOT start a new thread. Stay in the old one. Here's another you
may prefer IF the blanks are col A
Sub DeleteBlanks()
Columns("A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete
End Sub
If you're new to macros, you may want to read David McRitchie's intro
at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"jeffc4442" wrote in message
...
Hi:

I copied it into view code, but i can't figure out how to "run it." can
you
tell me how please?

thanks.

Jeff

"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste this in and run it

Sub Kill_Blank_Rows()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then
ActiveSheet.UsedRange.Rows(i).EntireRow.Delete
End If
Next i
End Sub

Mike

"brewster56" wrote:

Is there a way to delete 100's of blank rows programatically ?
--
BB