Selecionar Caminho do Arquivo - VBA

[dricoosz]

Galera, uma ajudinha, tenho uma macro do Excel, que utilizo para abrir determinados planilhas para utilizar dos dados em cada uma, mas acontece que o caminho do arquivo já está definido, e eu gostaria que o usuário pudesse escolher o caminho do arquivo, eu utilizo o seguinte código.

 

  Set wkbNorm = Workbooks.Open("C:\Users\Teste\Desktop\Teste - Survey\POL.xlsx")
  Set wksNorm = wkbNorm.Worksheets("POL") ' Abre Arquivo POL na planilha POL
  Set wkbDest = Workbooks.Open("C:\Users\Teste\Desktop\Teste - Survey\Survey.xlsx")
  Set wksDest = wkbDest.Worksheets("VALIDA_PREENCHIMENTO") ' Informa qual planilha irá ser armazenado as informações

 

' Aqui eu seleciono os dados que quero copiar de uma planilha para a outra

  wksNorm.Range("B2:B6000").Copy wksDest.Cells(lngLast, "Y")

 

' Aqui eu fecho as planilhas abertas lá em cima

    wkbNorm.Close True
    wkbDest.Close True