Skjul linjer baseret på værdi i kolonner

Kan du nøjes med autofilter ?
Vis, hvis D <> 0

mvh finb

Jeg vil gerne have det automatiseret så meget som muligt - medarbejdere skal blot kunne printe prislisten ud, uden først at skulle filtrere listen

Har fundet nedenstående - Men her skal jeg stille mig et sted i arket og trykke enter før der sker noget.

Hvordan gør jeg, så handlingen sker idet jeg går ind i arket?



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    For Each c In Range("d1:d1000").Cells
        If c.Value = 0 Then
            Rows(c.Row).Hidden = True
        Else
            Rows(c.Row).Hidden = False
        End If
    Next
    Application.ScreenUpdating = True
End Sub