Åbning af Workbook

Jeg har brug for via en kommandoknap at åbne en workbook som ligger i samme biblotek. Bibloteket vil indeholde flere forskellige excel ark som også skal åbnes med en kommandoknap. det er også således at disse ark skal anvendes af andre på deres egen cp så derfor vil bibloteket ligge forskellige steder på diverse cp. Jeg har løst det at finde filen og jeg har også fået den åbnet men når jeg flytter til en anden cp så finder den godt nok filen men den bliver ikke åbnet.
Det der ville være godt var hvis nogen kunne hjælpe mig med at den kun søger i eget biblotek og derefter åbner filen. Jeg vedhæfter det jeg har lavet indtil nu
Private Sub Helicopter_Click()
Dim workooks As String
    Set fs = Application.FileSearch
        With fs
            .LookIn = "My Computer"
            .SearchSubFolders = True
            .Filename = "HE147NAI.xls"
            .Execute
        End With
    Workbooks.Open Filename:="HE147NAI.xls", ReadOnly:=True
   
End Sub