Probleem met knop

[kloosterofobie]

Ik heb een knop gemaakt maar hij werkt niet goed. Ik krijg steeds foutmelding 1004

Private Sub doelgroep_Click()
    Sheets("Inventarisatie DOELGROEP").Select
    Range("b1").Select
End Sub

Volgens mij is deze goed, kan iemand mij helpen????

 

[Wigi]

Private Sub doelgroep_Click()
    Worksheets("Inventarisatie DOELGROEP").Activate
    Worksheets("Inventarisatie DOELGROEP").Range("b1").Select
End Sub

Maar vermijd acties zoals Activate en Select.

 

[Wigi]

Of korter:

Private Sub doelgroep_Click()
With Worksheets("Inventarisatie DOELGROEP")
.Activate
.Range("b1").Select
End With
End Sub