Geopende bestanden of tabbladen zijn zichtbaar op het scherm, dat wil ik niet.

[Basbrommer]

Hallo,

Ik ben al een lange tijd bezig om de geopende bestanden of tabbladen niet zichtbaar te maken op het scherm omdat ze veel tijd in beslag nemen, maar ik kom er niet uit. Kan iemand mij hierbij helpen? Ik weet dat je geen gebruik moet maken van ".select" o.a., maar als ik dat weg laat werkt het niet meer.

Groeten Bas

    Worksheets("Rooster").Range("A204:L1500").Copy
    Windows("Registratie.xls").Activate
    Sheets("Rooster").Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Windows("ClientenAC.xls").Activate
    Sheets("AC").Columns("I").EntireColumn.Hidden = False
    Worksheets("AC").Range("H24:I424").Copy
    Windows("Registratie.xls").Activate
    Worksheets("Namen").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Worksheets("Namen").Range("A3:B263").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
    Windows("ClientenAC.xls").Close SaveChanges:=False
    Sheets("Registratie").Select

 

[edmoor]

Zet in ieder geval net voor je eigen code het scherm verversen uit:
Application.ScreenUpdating = False
En als het klaar is uiteraard weer aan zetten.

 

[Basbrommer]

Dank je wel. Dat scheelt een hoop.

Groeten Bas