Luk kalenderformular

Jeg bruger følgende kode i excel 2003 til at kopiere det aktive ark og anbringe kopien som sidste ark.

Sub NytArk()
' Kopierer det aktive ark og indsætter kopien som sidste ark
    ActiveSheet.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
' Kopierer indholdet at celle I5
    Range("I5").Copy
' Indsætter de kopierede data i celle A5
    Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' Omdøber arket til tekstværdien i celle C2
    Sheets(ActiveSheet.Name).Name = Range("C2")
'
End Sub

Det virker fortrinligt bortset fra én lille detalje.

Når koden når til at indsætte data i celle A5 åbnes en kalenderformular. Den åbnes fordi cellen har formatet dd.mm.åå og celler der er formateret sådan åbner kalenderformularen med en [ Private Sub Worksheet_SelectionChange(ByVal Target As Range) ]

Kan man få koden til at skippe kalenderformularen?