naming workbook to be recognised in vba

[rfletcher35]

Guys,

This must be a simple one but I cannot see what I am missing. My code is below, it open a prompt to choose a workbook that I extract data from. I need this workbook to be referenced later in my code. I am trying to reference it as wb1 but it does not work, can anyone see the issue please?

' Open Downloaded Data
Dim wb1 As Workbook
Dim fileNameAndPath As Variant
fileNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv), *.csv", Title:="Select your Downloaded File")
If fileNameAndPath = False Then Exit Sub
Workbooks.Open Filename:=fileNameAndPath
Set wb1 = ActiveWorkbook

Thanks


Fletch

 

[mrshl9898]

It does look OK to me. But try to set it as you open it maybe.

Set wb1 =  Workbooks.Open Filename:=fileNameAndPath

 

[rfletcher35]

It does look OK to me. But try to set it as you open it maybe.

Set wb1 =  Workbooks.Open Filename:=fileNameAndPath

My problem is I need to reference it as it may now be the same name every time. But every time I run it wb1 appears blank and just doesn't get the sheet name?

 

[Norie]

Try this.

Set wb1 = Workbooks.Open(Filename:=fileNameAndPath)

 

[rfletcher35]

Try this.

Set wb1 = Workbooks.Open(Filename:=fileNameAndPath)

Fantastic this worked perfectly, thank you for you help, much appreciated.