Virusmeldung bei "harmlosen" VBA code

Sub ModulKopieren()
ThisWorkbook.VBProject.VBComponents("Modul1").Export "Test.bas"
Workbooks("Mappe2").VBProject.VBComponents.Import "Test.bas"
Workbooks("Mappe2").VBProject.VBComponents(Workbooks("Mappe2") _
.VBProject.VBComponents.Count).Name = "MeinModul"
Kill "Test.bas"
End Sub