VBA Langsomt - HJÆLP

Hejsa.

Jeg har et program, som skal skjule udvalgte linier før arket udskrives.

Problemet er, at når jeg har udskrevet arket eller "Vis udskrift" een gang, bliver skjule-proceduren herefter utrolig langsom.

Jeg kan naturligvis afhjælpe problemet, ved at gemme dokumentet, lukke det og herefter åbne det påny, hvorefter proceduren foregår i en acceptabel hastighed. Men det er ikke særlig professionelt....

PS. Jeg vil lige gøre opmærksom på, at < Application.ScreenOpdating = False > er en del af proceduren.

Håber en eller anden kan hjælpe mig.


Kode Eksempel:

Sub UdskrivTilretTilbud()
Dim iRække As Integer
Dim i As Integer

    LåsOpArkHest ("Side2")
   
    Rows("1:1000").EntireRow.Hidden = False
   
    iRække = 12
   
    Application.ScreenUpdating = False
       
    For i = iRække To 270
            If Cells(i, 10) = 0 And Cells(i, 11) = "" Or Cells(i, 10) = "" And Cells(i, 11) = "" Then
            Rows(i).EntireRow.Hidden = True
        End If
         
    Next
   
    Application.ScreenUpdating = True
    LåsArkHus ("Side2")
End Sub

Sub VisAlleLinierHesteberegning()
    LåsOpArkHest ("Side5-6")
    Rows("1:1000").EntireRow.Hidden = False
    LåsArkHest ("Side5-6")
End Sub
Sub LåsOpUdskrivHesteberegning()
    LåsOpArkHest ("Side5-6")
End Sub
Sub VisAlleLinierTilbud()
    LåsOpArkHest ("Side2")
    Rows("1:1000").EntireRow.Hidden = False
    LåsArkHest ("Side2")
End Sub

Håber i Kan hjælpe mig! Tak :-)