We use this basic one for file moves. Cant find the better coded macro, but
this will get you by:
--------------------------
Dim fso2
Dim DestPath, SourcePath, CurrentFileName As String

Set fso2 = CreateObject("Scripting.FileSystemObject")
DestPath = Range("$C$2").Value 'Destination File Path
SourcePath = Range("$C$4").Value 'Source File Path
Range("$K$3").Activate 'This would be your C3 cell.
Do 'U may not need this loop as you may only be copying one file
CurrentFileName = ActiveCell.Value
fso2.CopyFile SourcePath & CurrentFileName & ".xls", DestPath
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value = Empty Then Exit Do
Loop
------------------------------------------------


"short_n_curly" wrote:


it woks like this if cell c3 = "Archived" then
workbooks(range(d3)).value is cut from file
ChDir "C:\Documents and Settings\Carl\Desktop\Personal Training
Clients"
and is pasted into file
ChDir "C:\Documents and Settings\Carl\Desktop\Archived Files"

can i cut the workbook (i.e this workbook is not open) this code comes
from a seperate workbook, what i am asking is that i have the code to
rename files based upon cell contents and even code to open workbooks
in the same way but there seem to be no option to cut the workbook and
paste it into the desination folder, can this be done

hope this breakdown helps thanks for the replies so far keep them
coming please:)


--
short_n_curly
------------------------------------------------------------------------
short_n_curly's Profile: http://www.excelforum.com/member.php...o&userid=21576
View this thread: http://www.excelforum.com/showthread...hreadid=384157