How to extract & paste the filename into another workbook?

[soidog]

Hello,
I'm having a problem with extracting and paste the filename into another workbook.

I have code for:
Copy Cell "R19" in "Sheet1", in every workbook in folder "Test3".
Paste that value into workbook: "vikt.xlsm", column "W" with:
Workbooks("vikt.xlsm").Worksheets("Sheet1").Range("W" & Rows.count).End(xlUp).Offset(1). _
PasteSpecial Paste:=xlPasteValues.

But how to:
Adjacent to that value in column "W", insert in column "X", the workbook name the value came from?

Any help would be much appreciated.
Thanks.

 

[dchaney]

Just remember that you want to try to avoid Select and copy as much as possible, especially if you are doing large code and it involves large amounts of data.

 

[soidog]

Absolutely! I try to do that.
Thanks for the advice.