Hi There,

Normally underneath macro runs quite smoothly.
But sometimes this macro takes ages to complete...not that it bugs but
the calculation speed is like litterally 100 times slower. (for the
same range-sizes!)
All I can do is Close Excel and restart the marco ... to let it run at
normal speed.
Any Ideas? -For Improvement?

Option Explicit

Sub BlanksToNumbers()
Dim r As Range
Dim w As Worksheet
On Error GoTo err
Application.ScreenUpdating = False
For Each w In ActiveWorkbook.Worksheets
For Each r In w.UsedRange.Cells
r.Cells.Font.Name = "Arial"
If r.Text = "" And r.Formula = "" Then r.Value = ""
Next r
Next w
Application.ScreenUpdating = True
err:
End Sub

Cheers, Sige