Hi All,

In order to clean up some downloaded figures I run the following sub.
It works fine!!!

Sometimes I have the impression though that routine is calculating
rather slow.
It gets through but ...it takes
(sometimes looots of..)time.

Is there a way to speed up the routine???

Public 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

Cheeers Sige