BeforeSave fejler når køres via makro

Jeg har en fil med en makro BeforeSave, der blandt andet sørger for at rækkerne skiftevis er lys og mørk gul og grøn alt efter kolonne.

Når jeg gemmer filen manuelt virker makroen fint, men nu er jeg i gang med en anden makro som opdatere filen og vil gemme den, men så fejler den på denne linie.

Range("A" & F & ",D" & F & ":U" & F).Interior.ColorIndex = 36

Hvad har jeg gjort forkert?

Kan man alternativt slå BeforeSave fra?

Jeg har den del af makrokoden der vedr. farverne stående herunder.



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim SRK As String 'sidste række

...

' Indsætter skiftende farver i rækkerne indtil sidste løbenr. + 200 linier

    Sheets("refusioner").Select
   
    ' Finder første sidste linie med løbenr. og ligger 200 til linienr.
    Range("B9").Select
   
    If ActiveCell.Offset(1, 0).Value = "" Then
        Else
        Selection.End(xlDown).Select
    End If

    SRK = ActiveCell.Row + 200

    ' Slår skærmopdatering fra for hurtigere hastighed
    Application.ScreenUpdating = False

    ' Indsætter forskellige farever i henholdsvis lige og ulige linier
    For F = 10 To SRK

    Range("A" & F).Select

    If Right(ActiveCell.Row * 10 / 2, 1) = 5 Then

    Range("A" & F & ",D" & F & ":U" & F).Interior.ColorIndex = 6
    Range("B" & F & ":C" & F & ",V" & F & ":Y" & F).Interior.ColorIndex = 43

    Else

    Range("A" & F & ",D" & F & ":U" & F).Interior.ColorIndex = 36
    Range("B" & F & ":C" & F & ",V" & F & ":Y" & F).Interior.ColorIndex = 35

    End If

    ActiveCell.Offset(1, 0).Select

    Next F

    ' Slår skærmopdatering til igen
    Application.ScreenUpdating = True

...

End Sub