Соответствие высоты строки VBA на других листах

Question

Я новичок в использовании VBA / Macros в Excel, и у меня возникла проблема с проектом, над которым я работаю. У меня возникли проблемы с копированием указанных c высот строк для указанных c строк на одном листе и применением его ко всем другим листам. В настоящее время я получаю сообщение об ошибке типа:

Rows (Str (16 + intI) & ":" & Str (16 + intI)). RowHeight = MyArray (intI)

Can кто-нибудь помочь мне с исправлением этой ошибки? Или если есть какие-то другие советы, которые кто-то может дать мне, чтобы сделать это проще? Спасибо!

Код:

Private Sub CommandButton1_Click()

Dim MyArray(17) As String
Dim intI As Integer
Dim sh As Worksheet

For intI = 1 To 9
    MyArray(intI) = Rows(Str(16 + intI)).RowHeight
    Next

For intI = 10 To 17
    MyArray(intI) = Rows(Str(22 + intI)).RowHeight
    Next

' MsgBox Join(MyArray, vbCrLf) 'displays row heights in message box

For Each sh In ActiveWorkbook.Sheets
    With sh.UsedRange
        For intI = 1 To 9
            Rows(Str(16 + intI) & ":" & Str(16 + intI)).RowHeight = MyArray(intI)
            Next
       For intI = 10 To 17
            Rows(Str(22 + intI) & ":" & Str(22 + intI)).RowHeight = MyArray(intI)
            Next
    End With
Next sh

End Sub