行の高さを賢くコピー

excel vbaで行の高さを他のbook内sheetから持ってきたいとき、ちょっぴりでも早く複写する方法は内ですか？
どなたか教えてください。

こんな風に保存してから使うとかやるとすっごい遅くて。

    For i = 1 To ROWS_SIZE
        int_rowHeight(i) = Rows(i).rowHeight
    Next i