Code Performance Problem

[HSAR]

I have been using this code which is taking too long time while applying and the active sheet has maximum 15 columns and 400 rows.

Dim x As Integer
For x = 1 To ActiveSheet.UsedRange.Columns.Count
Columns(x).EntireColumn.NumberFormat = "General"
Columns(x).Value = Columns(x).Value
Columns(x).EntireColumn.AutoFit
Next x

 

[Fluff]

No need for the loop, just use

With ActiveSheet.UsedRange
   .NumberFormat = "General"
   .Value = .Value
   .EntireColumn.AutoFit
End With

 

[HSAR]

Thanks fro help.

 

[Fluff]

You're welcome.