Speed up VBA AutoFit

[ceytl]

Hello,

I have this vba code that autofits all rows from 24 to 2000.

It works great, but it's very slow on my spreadsheets.

Is there any way to make it faster?

Thanks!

Sub AutoFitRows()

For x = 24 To lngLastRow + 2000
    Range("A" & x).EntireRow.AutoFit
Next x

  End With
End Sub

 

[Dermot]

How about doing it in one go?

Range("A24:A" & lngLastRow + 2000).EntireRow.AutoFit