This macro has gone through a lot of changes as you can see with all the
comment tags.

I'm trying to find a workbook in a folder and then move it to another
folder with an altered name.


Code:
--------------------
Public Sub name_of_workbook()

Dim bookpath As Variant
Dim sourcepath As Variant
Dim Wrkbook As Workbook
Dim archivepath As String
Dim wkbkname As String
Dim wkbkaddr As String
Dim actiondate As Variant
Dim dateofchange As String
Dim newname As String

sourcepath = "P:\VBA training\Test_folder"

For Each Wrkbook In sourcepath
bookpath = Wrkbook.FullName


'bookpath = ActiveWorkbook.FullName
archivepath = "P:\VBA training\archive\"
wkbkname = bookpath.Name
'wkbkaddr = ActiveWorkbook.Address
actiondate = Format(Now(), "ddmmyyyy")
'FormatDateTime(actiondate, 2)
'dateofchange = (actiondate, "dd mm yy")
newname = (actiondate) & "_" & wkbkname
'bookpath.Close
bookpath.Move "archivepath & newname"
Next Wrkbook

End Sub
--------------------


--
Daminc
------------------------------------------------------------------------
Daminc's Profile: http://www.excelforum.com/member.php...o&userid=27074
View this thread: http://www.excelforum.com/showthread...hreadid=534196