Ajustar el tamaño de las 1000 primeras filas a un tamaño determinado.

Ajustar el tamaño de las 1000 primeras filas a un tamaño determinado.

Sub fixRowHeights()
   For i = 1 To 1000
      ThisWorkbook.ActiveSheet.Rows(i).RowHeight = 19
   Next i
End Sub