I need to resize a msflex grid. I am using DAO to fill the grid.
This code works but is slow when I have a lot of results.

Private Sub resizegrid()
Dim r As Long, c As Long
r = 1

Do Until r >= MSFlexGrid1.Rows 'loop thru rows
With MSFlexGrid1
.Row = r
For c = 0 To (.Cols - 1) 'move thru each cell in row
.Col = c

.RowHeight(r) = 600
Next c
End With
r = r + 1


Loop
End Sub



I could use a progress bar (if I knew how).

Any Suggestions welcome.