excel 2010 - ret inputmaske på eksisterende data

Sub Tekst_Til_Tlf_Format()
On Error GoTo Fejl

If ActiveCell.Value = "" Then
    Exit Sub
End If

' Markere område ud fra start celle
'(Den der er markeret og sidst udfyldte i kolonne)
    Start = ActiveCell.Address
    slut = ActiveCell.End(xlDown).Address
   
    Range(Start & ":" & slut).Cells.Select
   
' søg og erstat mellerum med ingen ting
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
   
' Laver "teksttal" til rigtige tal
    On Error Resume Next
    For Each c In Selection.Cells
        c.Value = c.Value * 1
    Next c
   
' Formater active kolonne som +45 xxxx xxxx
    KolBog = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
    Range(KolBog & ":" & KolBog).NumberFormat = "+# #### ####"
Fejl:
End Sub