Macro pour ouvrir un autre classeur Excel selon la valeur (variable) d'une cellu

j'aimerais ouvrir un autre classeur selon la valeur d'une cellule c'est a dire que si par exemple une valeur a je veux ouvrir la feuil1 du nouveau classeur .
j'ai essayé d'ecrire ce code mais ca m'ouvre toujours la meme feuille je vous laisser regarder


Private Sub CommandButton1_Click()
ouvrir
End Sub


Public Function ouvrir()
Dim wb As Workbook
Dim ws As Worksheet

Dim s As Integer
s = ActiveCell.Row


Set wb = Workbooks.Open("C:\Documents and Settings\stage\Bureau\1.xls")
If Workbooks("test").Sheets("Feuil1").Cells(s, 1).Value = a Then

Set ws = wb.Worksheets(2)
Else

Set ws = wb.Worksheets(1)
End If

End Function


merci d'avance🙁