LinkBack URL
About LinkBacks
MagicMan 
you could add this line of code just before the "End IF" line
Sheets("Welcome").Range("C2") = Left(filename, InStr(1, filename, ".xls", vbTextCompare) - 1)
you could add this line of code just before the "End IF" line
Sheets("Welcome").Range("C2") = Left(filename, InStr(1, filename, ".xls", vbTextCompare) - 1)
Pierre Leclerc
_______________________________________________________
If you like the help you got,
Click on the STAR "Add reputation" icon at the bottom.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks