toujours pb sur rendre classeur actif à partir de la valeur d'un textbox

bonjour le forum

J'ai encore un souci :
j'ai le code suivant

Private Sub ComboBox1_Enter()

Dim Classeur As Workbook
Dim Tableau(10) As Variant


For Each Classeur In Workbooks
If Classeur.path & "\" & Classeur.Name = TextBox3 Then
Exit Sub
End If
Next Classeur

For i = 1 To Classeur.Activate.Sheets.Count
Tableau(i) = Sheets(i).Name
Next i
ComboBox1.ColumnCount = 1
ComboBox1.List() = Tableau

End Sub


le pb c'est qu'il me prends pas le bon classeur pour le combobox j'ai les onglet du classeur de mon userform actif

Comment puis je régler le pb ??
Au secours je galère depuis hier avec ca lol