Hi Alan -

Here's one approach:

fl_Name = ActiveWorkbook.FullName
comp_Name = Replace(fl_Name, ".xls", "_Complete.xls")

--
Jay


"Alan" wrote:

I have a CommandButton on a worksheet to create a copy of the
ActiveWorkbook. I want the copy's filename to be the same as the
ActiveWorkbook.FullName but add "_Complete" before the file
extension. i.e......C:\FileName.xls to C:\FileName_Complete.xls.
Any help would be greatly appreciated.

--------------

Regards,

Alan