Sub OpenFile()
Dim x As Integer, tablica, tekst As String

tablica = Application.GetOpenFilename(Title:="Wskaż plik", MultiSelect:=True)
On Error GoTo blad
For x = 1 To UBound(tablica)
tekst = tekst & ";" & Dir(tablica(x))
Next x
tekst = Right(tekst, Len(tekst) - 1)
ActiveCell.Value = tekst
blad:
On Error GoTo 0
End Sub

Sub OpenFile()
Dim x As Integer, tablica, tekst As String

tablica = Application.GetOpenFilename(Title:="Wskaż plik", MultiSelect:=True)
On Error GoTo blad

For x = 1 To UBound(tablica)
tablica(x) = Dir(tablica(x))
Next x

ActiveCell.Value = Join(tablica, ";")
blad:
On Error GoTo 0
End Sub