Split Multiple workbook in a folder into separate worksheet and rename the file name with Date

[DocAElstein]

Hello San R.
Welcome to ExcelFox

If you need specific help, then you would have to explain in more detail

A start point, could be to get a list of the files you want to work on, see here , for example: http://www.excelfox.com/forum/showth...ll=1#post12559

Sub MyFileListAtMyFolder() '  http://www.excelfox.com/forum/showthread.php/2459-Split-Multiple-workbook-in-a-folder-into-separate-worksheet-and-rename-the-file-name-with-Date?p=13111#post13111
Dim myPathAndFiles As String
 Let myPathAndFiles = "C:\Users\Elston\Desktop\*.xls*" ' - change to the path to your files
Dim StrDirBack As String
 Let StrDirBack = Dir(myPathAndFiles, vbNormal) ' Initial file search for all Excel files - * is a wildcard, so any file like  MyFile.xlsx  or BN.xls    etc. will meet the search criteria - the file need only have  .xls  in it
    Do While Not StrDirBack = "" ' Dir will return "" if no next file is found
    Dim MyFilesList As String
     Let MyFilesList = MyFilesList & vbCr & vbLf & StrDirBack ' add a line and the next found file name to our file list
     Let StrDirBack = Dir ' If Dir is used with no arguments, then it looks for the next file with the previous serach criteria
    Loop '
 MsgBox Prompt:=MyFilesList, Title:="My Files from  " & myPathAndFiles
End Sub

Alan

https://www.youtube.com/channel/UCnx...RbjOo_MO54oaHA