File equals cell value problem

Hello All,

I am trying to use a macro to import all file names in a folder. I found the following which works perfectly:

Dim ws As Worksheet

Set ws = ActiveSheet
Filename = Dir("C:\Dean\Dictation\*.mp3")

Do Until Filename = ""
ws.Range("A65000").End(xlUp).Offset(1, 0).Value = Filename
Filename = Dir
Loop
End Sub

The problem is I want the file path to be what is in cell V1, I tried

Filename = Dir (Range("V1").Value)

But this didn't work, I thought I was in the right area with that one but, after trying various versions of it I have gotten nowhere!

Any advice would be most greatfully received!

Thanks,

Dean