Formeln mit best. Farbe als Wert

Sub Ersetzen()
Dim I As Integer
For I = 1 To ThisWorkbook.Sheets.Count
Select Case UCase(Worksheets(I).Name)
Case "JANUAR", "FEBRUAR", "MÄRZ", "APRIL", "MAI", "JUNI", "JULI", _
"AUGUST", "SEPTEMBER", "OKTOBER", "NOVEMBER", "DEZEMBER"
'   Formeln ersetzen durch Werte mit Formate
Worksheets(I).Rows(40).Copy
With Worksheets(I).Rows(45)
'   Werte
.PasteSpecial Paste:=xlValues
'   Formate
.PasteSpecial Paste:=xlFormats
End With
End Select
Next I
Application.CutCopyMode = False
End Sub