record the filename of wkb2

[andymalan]

Dear Friends, I have searched and read many similar posts, but nothing currently fits for me. Your help will be greatly appreciated.

My code opens a directory allowing the user to select a file to work with. I need code that will copy the filename of wkb2 and paste it to the workbook ("FactoryDrawingConfig.xlsm") that holds the code.
code<>
'Opens the csv directory and shows files to select from
Dim wkb2 As Workbook
Dim Usersname As String
Usersname = Environ("USERNAME")
strFileName = "C:\Users\" & Usersname & _
"\Dropbox\PC\Documents\CapitalElement\FilesToConvert"
ChDir strFileName
FileFilter = "Excel 2003 (*.xls),*.xls," & _
"Excel 2007 > (*.xlsx),*.xlsx," & _
"All Excel Files (*.xl*),*.xl*," & _
"All Files (*.*),*.*"
strFileName = Application.GetOpenFilename(FileFilter, 4, "Select One File To Open")
Set wkb2 = Workbooks.Open(strFileName, False, False)
<>

 

[davesexcel]

There is no copy and paste for the workbook name.

'start
dim wb as workbook
set wb=thisworkbook 'thisworkbook is the workbook with the code

'end
'wherever you want the wbk2 name
wb.worksheets("Sheet1").range("A1")=wbk2.name

 

[andymalan]

There is no copy and paste for the workbook name.

'start
dim wb as workbook
set wb=thisworkbook 'thisworkbook is the workbook with the code

'end
'wherever you want the wbk2 name
wb.worksheets("Sheet1").range("A1")=wbk2.name

 

[andymalan]

Hello Dave
thanks for your prompt reply. Unfortunately, I get an error "Object Required" when I run the code. what have I done wrong?

 

[davesexcel]

Needs to be at the end, won't work before you set the wbk2 variable

 

[andymalan]

Needs to be at the end, won't work before you set the wbk2 variable

I thought it was at the end? where have I gone wrong?

 

[davesexcel]

You need to set the wb at the start of the code not after you open another workbook