Workbook name, easy one for most everyone but me..

[sspatriots]

Hi,

I have the following in a macro. In an open workbook event, I place the workbook name into cell "F1" on "Sheet1". I have a Workbook_WindowResize event that I want to "Set wbk =" to the workbook in cell "F1" (the workbook name). I have the whole workbook name in the first code below, but I want to write it such that I don't have to put the workbook name in this code. I hope some of this makes sense. SS

Dim wbk As Workbook
Set wbk = Workbooks("BAS - Shop Folder Time Tracking Details - 8-18-2023.xlsm")

Dim wbk As Workbook
Set wbk = Range("F1")

 

[Joe4]

That is because you are trying to set a range equal to a workbook variable!

You need to do it like this:

Set wbk = Workbooks(Range("F1").Value)

assuming the value in F1 is accurate.

 

[sspatriots]

That is because you are trying to set a range equal to a workbook variable!

You need to do it like this:

Set wbk = Workbooks(Range("F1").Value)

assuming the value in F1 is accurate.

Does the entire name and file path have to be in "F1" or just the file name to meet the requirement of the wkb?

 

[Joe4]

Does the entire name and file path have to be in "F1" or just the file name to meet the requirement of the wkb?

Test it out and find out!
(Should be pretty easy to test it out).

 

[sspatriots]

I get a subscript out of range error.

 

[Alex Blakenburg]

That means it couldn't find it.

F1 should have something in that looks like this:-
BAS - Shop Folder Time Tracking Details - 8-18-2023.xlsm

And that workbook needs to be already open.

 

[Skyybot]

You have to use the SaveAs method to change the name of a Workbook.

 

[sspatriots]

Test it out and find out!
(Should be pretty easy to test it out).

I finally got it to work. Not sure what I was doing wrong after I changed it to what you suggested because it still wouldn't work. Then all of a sudden it did work. I did close the file and open it on a different computer though. Weird. Thanks for your help.

 

[Joe4]

You are welcome.