Files(1) = Range("A1").Value

Regards