Nabend,

pack das mal dazwischen:

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With


'//Code

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With

5,7s bei mir (alter Atholn FX6350-EightCore 4,2GHZ)

Ne Quellenangabe zu dem Code  wäre doch noch passend, nicht wahr?

@xlKing:

Deine Eratosthenes-Variante in einem Variant-Array? Füllt Elemente 10^6 binnen 3/100. (was eigentlich ziemlich langsam scheint)

gruß

Marco