Visual Basic Macro VBA para abrir planilhas em determinada pasta

[André Leandro Viana]

Fala galera, estou com um problema e não sei como resolver, tenho na empresa diversas máquinas, cada uma com seu número de patrimônio. Gostaria de criar um código onde ao digitar o nº de patrimônio numa caixa e clicando em um botão pesquisar, abra a planilha desejada. As planilhas estão todas dentro de uma pasta e nomeadas com o número de patrimônio.

Alguém pode me ajudar? 

[Basole]

Segue sugestão de acordo com as informações passadas

Sub AbrirPlanDeterminadaPasta()
Dim wb          As Workbook
Dim nPlan       As Single
Dim strPath     As String
Dim strFile     As String

    strPath = "C:\temp\" '  * ALTERE O CAMINHO DA PASTA *

    nPlan = Excel.Application.InputBox(" Insira apenas numeros ", _
                                     "Insira o Nº de Patrimônio", Type:=1)

       If Not VBA.IsNumeric(nPlan) Then Exit Sub
  
             strFile = VBA.Dir(strPath & nPlan & ".xls*", VBA.vbArchive)

       If strFile <> "" Then

         Set wb = Excel.Workbooks.Open(strPath & strFile)

       Else
  
             MsgBox nPlan & ": ! Arquivo nao encontrado! Verifique! ", _
                                 vbCritical, "Nao Encontrado"
       Exit Sub

       End If

       wb.Activate

       wb.Worksheets(1).Activate
       

End Sub