Makro schneller machen - suchen/ersetzen

Sub PunktinKomma()
Speed_on
Dim c As Range
For Each c In Selection.Cells
If (Not IsEmpty(c)) And (Not IsNull(c)) Then
If Left(c.Formula, 1) = "'" Then
c = Application.Substitute(c, ".", ",")
Else
c = "'" & Application.Substitute(c, ".", ",")
End If
End If
Next c
Speed_off
End Sub

Sub TextinZahl()
Speed_on
Dim c As Range
For Each c In Selection.Cells
If (Not IsEmpty(c)) And (Not IsNull(c)) Then
If Left(c.Formula, 1) = "=" Then
c = Application.Substitute(c, "'", "") * 1
Else
c = Application.Substitute(c, "'", "") * 1
End If
End If
Next c
With Selection
.HorizontalAlignment = xlGeneral
End With
Speed_off
End Sub

Sub Speed_on()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.Calculation = xlManual
End Sub

Sub Speed_off()
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.Calculation = xlAutomatic
End Sub