Activate worksheet with variable name

[Herbiec09]

Hi All,

Can anyone assist with the last line of the below code, not quite sure what's wrong with the statement, but it comes out highlighted in yellow when i try to run it:

Dim fName As Variant
Dim wb As Workbook
Dim file_name As Variant
fName = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLSX), *.XLSX", Title:="Select File To Be Opened")
If fName = False Then Exit Sub
Workbooks.Open Filename:=fName
Set wb = Workbooks(fName & ".xlsx")

Thanks

 

[Jonmo1]

Once the book is open, you no longer need the Path in the workbooks command.
fName contains the path given during teh GetOpeFielname process..

You can set the variable at the same time you open the book.

Try changing

Workbooks.Open Filename:=fName
Set wb = Workbooks(fName & ".xlsx")

to

Set wb = Workbooks.Open(fName)

 

[Herbiec09]

Once the book is open, you no longer need the Path in the workbooks command.
fName contains the path given during teh GetOpeFielname process..

You can set the variable at the same time you open the book.

Try changing

Workbooks.Open Filename:=fName
Set wb = Workbooks(fName & ".xlsx")

to

Set wb = Workbooks.Open(fName)

Hi Jonmo1

Thanks for the above, but it produces a Compile error Expected: End Statement

 

[Jonmo1]

You may have used the first code I posted (thought I edited it fast enough)
Try it again with the new code after I edited it..


Set wb = Workbooks.Open(fName)

 

[Herbiec09]

Hi Jonmo1

Thanks for the above, but it produces a Compile error Expected: End Statement

Ok, pse ignore the above, it actually works, my mistake. Thanks for your help, let me plough on.

H