Out of memory (kabbak)

Hej

Netop udarbejdede løsning af en userform

//www.eksperten.dk/spm/613974

kommer med en fejl ved lukning af filen - "out of memory" (3 gange OK for at forlade filen). Makroen og userformen virker upåklageligt.

Makroen ser således ud.

    UserForm1.Show

    Range("H7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,2,FALSE),FALSE)"
    Range("J7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,3,FALSE),FALSE)"
    Range("L7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,4,FALSE),FALSE)"
    Range("N7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,5,FALSE),FALSE)"
    Range("P7").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(EbitD!R2C6,'Total per segment'!R17C1:R27C11,VLOOKUP(R2C7,'Total per segment'!R30C1:R31C6,6,FALSE),FALSE)"
    Range("h7").Select


Mangler der en form for "close" funktion i makro?