Makrovirus i Excel?

Jag har nu genom att successivt plocka bort delar av makrokoden lyckats hitta vilka delar som ger upphov till virusvarningen i F-Secure:

Sub KopieraCeller2_PoP()
On Error Resume Next
[B][i]Sheets("PL PoP").Range("c4:k300").Copy[/i][/B]
Sheets("Pricklista").Range("c65536").End(xlUp).Offset(2, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

samt

Sub ImportFirstSheet_Linde()
Dim ImporteraFilnamn As Variant

Application.ScreenUpdating = False
    
' Avaktiverar automatisk beräkning
Application.Calculation = xlCalculationManual

    ' Använder "GetOpenFilename" istället. Den blir kompaktare
ImporteraFilnamn = Application.GetOpenFilename( _
    "Excel-filer, *.xls", Title:="Välj leveransplan från Linde att importera", MultiSelect:=False)

' Fångar upp cancel/avbryt. Då avslutas makrot
If ImporteraFilnamn = False Then Exit Sub

' Skapar strängvariablerna importFile och firstSheet
Dim importFile As Workbook
Dim firstSheet As Worksheet

' Öppna filen som ska importeras
Set importFile = Workbooks.Open(Filename:=CStr(ImporteraFilnamn))

' Välj ut första bladet i den importerade filen
Set firstSheet = importFile.ActiveSheet
' Tar bort eventuella tomma rader i leveransplanen
RaderaTommarader_levplan_Linde firstSheet.Range("A1:A4")
' Kopiera och klistra in i ett steg
[b][i]firstSheet.Cells.Copy (ThisWorkbook.Worksheets("Levplan Linde").Cells)[/i][/b]
ThisWorkbook.ShowPivotTableFieldList = False

' Välj ut första bladet i den importerade filen
Set firstSheet = importFile.Sheets("Blad1")
' Tar bort eventuella tomma rader i leveransplanen
RaderaTommarader_levplan_Linde firstSheet.Range("A1:A4")
' Kopiera och klistra in i ett steg
firstSheet.Cells.Copy (ThisWorkbook.Worksheets("Levplan Linde 2 kopia").Cells)

' Stäng import-filen
importFile.Close SaveChanges:=False

' Kopiera artikelnummer från leveransplan till prick- och planlista
KopieraCeller_Linde

' Töm urklippet
Application.CutCopyMode = False

' Aktiverar automatisk beräkning
Application.Calculation = xlCalculationAutomatic
    
Application.ScreenUpdating = True
MsgBox "Färdigt!"

End Sub

Inget konstigt med den koden, som jag ser det? De kodrader som F-Secure reagerar på återfinns på flera andra ställen men där ger det inget utslag.

Snyggt Jobbat, att isolera orsaken.
Markera tråden som löst och komplettera gärna med dina synpunkter.

Det kanske finns någon Excel hacker som har en lösning på hur man ska skriva för att undvika att AV-program "bråkar" ?

En walkaround kan ju vara att sluta använda copy/paste från vba, vilket ändå är ganska ineffektivt prestandamässigt. Det verkar vara copymetoden i rangeobjektet den inte gillar. F-secure brukar faktiskt klaga för mig med, men jag har aldrig orkat bry mig om varför.

Prova istället Range1.Value = Range2.Value