Does anyone know a alternate code to do the following....this has been running really slowly.

[iowitz]

Changing all the files row height to "15" above the top of the letters.


Sub test()
Dim i As Long, startRow As Long, endRow As Long, rowHeightIncrease As Long

Rows.AutoFit

startRow = 2
endRow = Cells(Rows.Count, 1).End(xlUp).Row

rowHeightIncrease = 15

For i = startRow To endRow
Rows(i).RowHeight = Rows(i).RowHeight + rowHeightIncrease
Next i
End Sub

 

[Rick Rothstein]

Changing all the files row height to "15" above the top of the letters.


Sub test()
Dim i As Long, startRow As Long, endRow As Long, rowHeightIncrease As Long

Rows.AutoFit

startRow = 2
endRow = Cells(Rows.Count, 1).End(xlUp).Row

rowHeightIncrease = 15

For i = startRow To endRow
Rows(i).RowHeight = Rows(i).RowHeight + rowHeightIncrease
Next i
End Sub

If the rows are currently all the same height, you could do this in place of the loop...

Rows(startRow & ":" & endRow).RowHeight = Rows(startRow).RowHeight + rowHeightIncrease

However, if the current heights can vary, then the only thing I can think of is to put this before your For statement...

Application.ScreenUpdating = False

and this after the Next statement...

Application.ScreenUpdating = True

 

[iowitz]

Can you show me where in the code to put exactly?

 

[Rick Rothstein]

Can you show me where in the code to put exactly?

Shown in red...

Sub test()
  Dim i As Long, startRow As Long, endRow As Long, rowHeightIncrease As Long

  Rows.AutoFit

  startRow = 2
  endRow = Cells(Rows.Count, 1).End(xlUp).Row

  rowHeightIncrease = 15

  Application.ScreenUpdating = False
  For i = startRow To endRow
    Rows(i).RowHeight = Rows(i).RowHeight + rowHeightIncrease
  Next i
  Application.ScreenUpdating = True

End Sub