Reduce Size of Blank Rows (again)
- From: Rebecca <Rebecca@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Fri, 28 Mar 2008 06:48:00 -0700
I am using MS Excel 2007. A month or so ago I asked for help to reduce the
size of blank rows (currently 16 points) down to 8 points. The Excel experts
advised me to try this macro:
Sub Reduce_Height_of_Empty_Rows()
'-- Reduce_Height_of_Empty_Rows to 8pts
' D.McRitchie, 2008-02-23 in excel.newusers
Dim LastRow As Long
Dim I As Long
' Cells.Font.Size = 16
LastRow = Cells.SpecialCells(xlLastCell).Row
For I = LastRow To 2 Step -1
If Application.CountA(Cells(I, 1).EntireRow) = 0 Then
Cells(I, 1).EntireRow.Font.Size = 8
End If
Next I
End Sub
Whenever I run this macro, it doesn't do the job intended (it's hard to
explain -- because I know nothing about programming -- but it looks like the
macro is running in loops -- the rows appear to be stuttering, but not
reducing the size from 16 to 8), and when I press Escape, the debug is yellow
highlight at the "End IF" line.
As I mentioned above I know absolutely nothing about macro creation, so I am
at a loss as to what the problem is. Could one of the MVP Excel experts take
a quick look again at the macro above and give me some advice? Thank you.
.
- Follow-Ups:
- Re: Reduce Size of Blank Rows (again)
- From: Dave Peterson
- Re: Reduce Size of Blank Rows (again)
- Prev by Date: editing excel templates
- Next by Date: Re: Reduce Size of Blank Rows (again)
- Previous by thread: editing excel templates
- Next by thread: Re: Reduce Size of Blank Rows (again)
- Index(es):
Relevant Pages
|
