Não sei se entendi corretamente, poderia dar mais detalhes.

Você quer criar HIPERLINK para arquivos ? Ou quer abrir a Janela para Selecionar um Arquivo e Abri-lo ?

[]s

Por exemplo escrevo numa caixa de texto de um formulário o nome de um ficheiro qualquer. De seguida carrego num botão "Inserir" e o nome é copiado para uma célula (por exemplo A1) e logo após abre a caixa de dialogo para criar a hiperligação para essa célula. É possivel fazer isso?

cumps

Boa tarde,

Veja se este código ajuda:

Sub CriarHyperlink()
    Dim Arquivo As String
    
    'Abre uma caixa de diálogo para seleção de um arquivo
    Arquivo = Application.GetOpenFilename
    
    'Insere o hiperlink na célula A1 com a expressão "Link"
    ActiveSheet.Hyperlinks.Add Anchor:=[A1], Address:=Arquivo, TextToDisplay:="Link"
End Sub

Abraço