Virusmeldung bei "harmlosen" VBA code
19.10.2004 20:49:18
chris
meldung:
Bloodhound.ExcelMacro
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