Ændring af celle kør macro fejl

Hej
Har denne macro som skal køre når celle F12 arket "tilbud" ændres, og så kopiere indholdet til F12 i arket "ordre", men den melder fejl når den skal selecte celle F12 i arket "ordre"

Hvorfor laver den fejl og kan det løses?
Se kode herunder.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F12")) Is Nothing Then
Call kopi_format
'MsgBox "Ændret F12"
End If

End Sub

Sub kopi_format()
'
' kopi_format Makro
'

'
    Application.ScreenUpdating = False
    Sheets("tilbud").Select
    Range("F12").Select
    Selection.Copy
    Sheets("ordre").Select
    Range("F12").Select ' Går i stå her
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("tilbud").Select
    Range("F12").Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub