모든 행높이를 +10하는 매크로

for i = 1 to 100
With ActiveSheet.Cells(i, 1).EntireRow
.RowHeight = .RowHeight + 10
End With
next

Sub LargerHeightforUsedRange()
  '// 데이터가 입력이 시작된 곳부터 끝까지만 적용
  Dim sh As Worksheet, R As Range
  For Each sh In Worksheets
    For Each R In sh.UsedRange.Rows
        R.RowHeight = R.RowHeight + 10
    Next
  Next sh
End Sub

Sub LargerHeightforAll()
  '// 무조건 1행부터 데이터 입력 끝까지 모두 적용
  Dim sh As Worksheet, R As Range, E As Range
  For Each sh In Worksheets
    Set E = sh.UsedRange.SpecialCells(xlCellTypeLastCell)
    For Each R In sh.Range(sh.Range("A1"), E).Rows
        R.RowHeight = R.RowHeight + 10
    Next
  Next sh
End Sub