Excelの行の高さをマクロ操作する注意点

Excelの行の高さは最大で409（ポイント）なので
それを超えるとエラーでマクロが止まってしまう

409を越えてないかチェックしたほうがいいっぽい

例）行の高さを一定数広げるマクロ

Option Explicit

' ==================================================
' ■行の高さを広げる
' ==================================================
Sub mcrRowHeigthPlus()

    Dim i               As Long
    Dim mySheetActive   As Worksheet

    Set mySheetActive = ThisWorkbook.ActiveSheet

    ' マクロ処理を画面表示しない
    Application.ScreenUpdating = False

    ' 1行目から最終行まで処理対象
    For i = 1 To mySheetActive.Cells(1, 1).End(xlDown).Row
        ' 【エラーチェック】（394より大きいと409超えてエラーになる）
        If mySheetActive.Rows(i).RowHeight > 394 Then
            ' とりあえず一番大きくする
            mySheetActive.Rows(i).RowHeight = 409
        Else
            ' 15広げる
            mySheetActive.Rows(i).RowHeight = mySheetActive.Rows(i).RowHeight + 15
        End If
    Next i

    ' 画面表示を戻す
    Application.ScreenUpdating = True

End Sub