Søge i folder udfra celle værdi

Hej,

Står med denne kode stump.. som jeg gerne vil have til at tage en mappe jeg har stående i E3 i stedet for en fast sti



Sub ChangeFilename()

Const FILEPATH As String = _
"C:\data\" det er her den faste sti er nævnt

Dim strfile As String
Dim filenum As String

strfile = Dir(FILEPATH)


Do While strfile <> ""
Debug.Print strfile
      Name FILEPATH & strfile As FILEPATH & Left$(strfile, 25) & ".txt"
 
  strfile = Dir

Loop

End Sub