With ThisWorkbook
Name "E:\ENGINEERING FOLDER\001-Ready\Template.ecw" As .Path & "\" &
Left(.Name, Len(.Name) - 4) & ".ecw"
End With

NickHK

"2007-User" wrote in message
...
Hi,

I have a file called "E:\ENGINEERING FOLDER\001-Ready\Template.ecw" I
would
like to copy this file to the same directory that my current excel file is
stored and running, after that I would like to rename this new file to "
current excel file name.ecw " , is this possible?
can anyone please help me to create this VBA?

Thanks in advance.