Macro activeren bij openen werkblad

[Robert Smidt]

Beste Helpmij'ers,

Na lang gezocht te hebben maar helaas niet gevonden de volgende vraag:

Ik ben op zoek naar een macro die geactiveerd wordt wanneer ik het betreffende werkblad open, in dit geval werkblad "Resultaatoverzicht". Ik heb al begrepen dat deze macro in ThisWorkbook geplaatst moet worden alleen werkt onderstaande niet.

If Sheets("Resultaatoverzicht").Activate Then
    ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=18, Criteria1:= _
        "show"
End If

Alvast heel erg bedankt.

Robert

 

[HSV]

Inderdaad in thisworkbook.

Private Sub Workbook_Open()
with Sheets("Resultaatoverzicht")
  .Activate
   .ListObjects("Tabel1").Range.AutoFilter 18, "show"
end with
End Sub

Of in thisworkbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
if sh.name = "Resultaatoverzicht" then sh.ListObjects("tabel1").Range.AutoFilter 18, "show"
End Sub

Of in de werkbladmodule.

Private Sub Worksheet_Activate()
me.ListObjects("tabel1").Range.AutoFilter 18, "show"
End Sub

 

[Robert Smidt]

De code werkt helemaal perfect, ik wil jou heel erg bedanken voor de snelle (uitgebreide) reactie.