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.

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