Hi TMShucks,

Thanks for replying. Do mean as follows:

Dim fso
Dim Filename
Dim Sourcename

Set fso = CreateObject("scripting.filesystemobject")
Filename = Me.Sheets("sheet1").Cells("A1")              
Sourcename = Me.Sheets("sheet1").Cells("A2")            

fso.copyfile Filename , Sourcename
I tried that and I'm getting the same error but at the 'filename' line

Regards, witham