VBA - text til tal

Hej,

Jeg har lavet dette til at vælge mit data ark, vælge alle fyldte celler i det, og konvertere dem fra text format til tal. Den virker fint, men synes den tager rigtigt lang tid at køre.

Der er tale om et ark med 27 kolonner og 663 rækker.

Sub Konverter_text_til_tal()
'
' Konverter_text_til_tal Makro
Worksheets("Data").Activate
ActiveSheet.UsedRange.Select
  Dim rng As Range
  Set rng = Selection
  For Each celle In Selection
    If celle <> "" Then
      celle.NumberFormat = 0
      If IsNumeric(celle.Value) Then
        celle.Value = celle.Value * 1
      End If
    End If
  Next
Worksheets("ark1").Activate
'
End Sub