sorteren bij activeren sheet

[don42]

Hallo allemaal,

wat is de code om lege cellen te verbergen
en dan bij activeren van een tabblad

heb onderstaande code die werkt via een knopje
maar wil het graag bij activeren van een tabje

Private Sub ToggleButton1_Click()
With Range("b1:b150")
ActiveSheet.Unprotect
    If ToggleButton1 = False Then
            .AutoFilter 1, "<>"
    Else
        .AutoFilter
    End If
End With
End Sub

bvd
Don

 

[pasan]

hoort achter het werkblad

Private Sub Worksheet_Activate()
 With Range("b1:b150")
  .AutoFilter Field:=1, Criteria1:="<>"
 End With
End Sub

 

[don42]

hey top bedankt