Auto skjul række i excel

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCellsTjek As Range

    Set KeyCellsTjek = Range("A1")
    Application.ScreenUpdating = False

    If Not Application.Intersect(KeyCellsTjek, Range(Target.Address)) Is Nothing Then
        If Range("A1") <> 1  Then
            Columns("B:B").EntireColumn.Hidden = True
        End If
    End If
   
    Application.ScreenUpdating = False

End Sub

Jeg formoder at det er KOLONNE B, du vil skjule.

Det skal vel være Application.ScreenUpdating = True til sidst ? eller har du et trick jeg ikke kender ;)

sjssjdk>> Fik du løst dit problem???

I givet fald bedes du lukke spørgsmålet!

Hej.

Tak for din hjælp.
Dog kan jeg ikke få dit skribt til at kører.

Jeg får følgende fejl:
No return() or Halt() funktions found in macro sheet