EXCEL 2003 - SUBTOTALS

  • Thread starter Thread starter RCF
  • Start date Start date
R

RCF

After using the subtotal command, I want to format the spreadsheet by
inserting blank lines before and after each subtotal and grand total. How
can I do this without manually inserting blank lines; or how can I create a
template with blank lines inserted after each subtotal?
 
Does this work for you?

Option Compare Text
Sub insert_rows()
Dim RowNdx As Long
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "C").Value Like "*Total*" Then 'edit "C" to suit
Rows(RowNdx + 1).EntireRow.Insert
Rows(RowNdx).EntireRow.Insert
End If
Next RowNdx
End Sub


Gord Dibben MS Excel MVP
 
Back
Top