Segue o arquivo corrigido para verificação. Fiz os testes aqui, e ocorreu tudo bem.
15488664064067464.ods
----------
Neste caso você não coloca o hyperlink na caixa de listagem, mas sim algum nome, que ao concatenar com um endereço aonde os arquivos estão, ele abrirá o arquivo.
Segue o código:
Sub AbrirArquivo
Dim Endereco, ArqName as String
oDoc = ThisComponent
oPlan = oDoc.Sheets.getByName ("Nome_da_sua_Plan")
'Nome do arquivo salvo e a extensão. Pode ser outra extensão
ArqName = oPlan.getCellRangeByName ("C2").String & ".pdf"
'Link aonde está o arquivo
Endereco = oPlan.getCellRangeByName ("B4").String
'Converte em link genérico e global, usado principalmente para computadores em rede
sArquivo = ConvertToUrl (Endereco & ArqName)
oSys = CreateUnoService("com.sun.star.system.SystemShellExecute")
oSys.execute(sArquivo, "", 0)
End Sub