Code dauert sehr lange !

Private Sub Workbook_Open()
Dim wks As Worksheet
Dim rngC As Range
Application.ScreenUpdating = False
For Each wks In Worksheets
With wks
For Each rngC In .Range(.Cells(2, 10), .Cells(Rows.Count, 10).End(xlUp))
rngC = Replace(Replace(rngC, " ", ""), ".", ". ")
Next
End With
Next
For Each wks In Worksheets
With wks
For Each rngC In .Range(.Cells(2, 8), .Cells(Rows.Count, 10).End(xlUp))
rngC = Replace(Replace(rngC, " ", ""), ".", ". ")
Next
End With
Next
End Sub