Rechercher et selectionner un onglet en fonction de la date du jour

Bonsoir,
J'ai un petit souci avec ce code.
Cela concerne les jours de la semaine, dont la date du jour est inscrite dans le cellule H10 de chaque onglet. ce que je souhaite, c'est que lorsque j'effectue une macro sur une autre feuille du classeur que la feuille du jour soit de nouveau sélectionnée et active.

Private Sub CommandButton1_Click()
Dim Onglets As Variant

ActiveSheet.Activate

'affectation des données saisies dans la textbox
Range("A1:C10") = Me.TextBox1

'vérifie le nom de chaque onglet
For Each Onglets In ThisWorkbook.Sheets

'compare la feuille active avec les autres et sélectionne celle qui est à la date du jour
If Onglets.Name <> "Feuil5" Then
Sheets(Onglets.Name).Select = Sheets(Onglets.Name).Cells(10, "H") = Date
End If
Next Onglets

'ferme le formulaire
UserForm1.Hide
End Sub

Je joins cette image qui donne le code erreur.
Merci d'avance