Makro blinker

Jeg har følgende makro:

Sub KopiBefordring()
'

Dim Besked
   
    Sheets("Befordring").Range("D9").Copy
    Sheets("Skat").Range("D32").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Befordring").Range("E9").Copy
    Sheets("Skat").Range("O32").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Application.CutCopyMode = False

    Sheets("Befordring").Range("d5").Select
   
' Skiv besked om at befordirng er overført til skatteregneark
    Besked = MsgBox(Prompt:="Fradrag er nu overført til arket 'Skat'", Title:="Overført")
End Sub

Jeg er træt af at den blinker (skifter side) under kørslen. Hvordan får jeg den til at lade være med det?