Workbooks.Open Filename

[=?ISO-8859-1?Q?Koncz=E9r_Tam=E1s?=]

'I ask for a new filename:

fileKimutatas = Application.GetOpenFilename("Adatok (*.xls),
*.xls") If fileKimutatas <> False Then

'I open it, if the string not empty:

Workbooks.Open Filename:=fileKimutatas

'Operations:

....

'I am going back to the original file:

Workbooks("Gazszamla_adatok.xls").Activate

'Operations:
....


'I activate the opened file:
Workbooks(2).Activate

....
....

End if

My question is:

Instead of Workbooks(2).Activate how could I link to that file?
(The "fileKimutatas" variable has the name of the file)

Thank you in advance!

 

[Bob Phillips]

See response in .programming

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



'I ask for a new filename:

fileKimutatas = Application.GetOpenFilename("Adatok (*.xls),
*.xls") If fileKimutatas <> False Then

'I open it, if the string not empty:

Workbooks.Open Filename:=fileKimutatas

'Operations:

....

'I am going back to the original file:

Workbooks("Gazszamla_adatok.xls").Activate

'Operations:
....


'I activate the opened file:
Workbooks(2).Activate

....
....

End if

My question is:

Instead of Workbooks(2).Activate how could I link to that file?
(The "fileKimutatas" variable has the name of the file)

Thank you in advance!

 

[=?iso-8859-2?Q?Koncz=E9r_Tam=E1s?=]

Thank you Bob.