I need to activate a workbook through a cell reference. the workook
name is stored in cell A1 as "pnlreport_060321.xls". This name
automatically changes daily based on the date. This is how I wrote the
code to activate the workbook:

Sub import()

Dim fileA As String
fileA = Range("A1").Value
windows("fileA").Activate

End Sub

Please HELP. How would I activate a workbook which is already open. I
cannot use the file name in the code because the name changes every
day.

Thanks : )

if it's already open, just delete the quotes

Windows(fileA).Activate


--


Gary


"VB Script for Excel" wrote in message
oups.com...
I need to activate a workbook through a cell reference. the workook
name is stored in cell A1 as "pnlreport_060321.xls". This name
automatically changes daily based on the date. This is how I wrote the
code to activate the workbook:

Sub import()

Dim fileA As String
fileA = Range("A1").Value
windows("fileA").Activate

End Sub

Please HELP. How would I activate a workbook which is already open. I
cannot use the file name in the code because the name changes every
day.

Thanks : )

Gary
It still does not work. Gives me a Run-Time Error 9 message: Subscript
out of range.
Thanks

what, exactly, is in A1

--


Gary


"VB Script for Excel" wrote in message
oups.com...
I need to activate a workbook through a cell reference. the workook
name is stored in cell A1 as "pnlreport_060321.xls". This name
automatically changes daily based on the date. This is how I wrote the
code to activate the workbook:

Sub import()

Dim fileA As String
fileA = Range("A1").Value
windows("fileA").Activate

End Sub

Please HELP. How would I activate a workbook which is already open. I
cannot use the file name in the code because the name changes every
day.

Thanks : )

also, is the workbook already open, or do you need code to open it, too?

--


Gary


"VB Script for Excel" wrote in message
ups.com...
Gary
It still does not work. Gives me a Run-Time Error 9 message: Subscript
out of range.
Thanks

if it's already loaded, try this. you may not have the file extension in A1

Windows(fileA & ".xls").Activate


--


Gary


"VB Script for Excel" wrote in message
ups.com...
Gary
It still does not work. Gives me a Run-Time Error 9 message: Subscript
out of range.
Thanks

The workbook is already open. Need to activate that open workbook.
filename to open that workbook is located in cell A1 of current
workbook (the workbook in which I am writing the macros).
:)

A1 in the current workbook gives me the file name that changes everyday
due to date.
A1 shows:
="pnlreport_"& TEXT(now(),"yymmdd")& ".xls"
this will produce: pnlreport_060321.xls if today's date is 21st March
2006.

I need to activate this file, which is already open through VB. But it
gives me a run time error in above code.


Thanks

Again gives me same Run Time Error '9': Subscript out of range. Makes
the line Windows(fileA & ".xls").Activate as yellow.

Thnx

i put your formula in A1 and this worked for me
Windows(fileA).Activate

maybe you should qualify the range with the sheet name, since i don't know what
the active sheet is

fileA =
workbooks("YourWorkbookName").worksheets("YourShee tName").Range("A1").Value

--


Gary


"VB Script for Excel" wrote in message
oups.com...
A1 in the current workbook gives me the file name that changes everyday
due to date.
A1 shows:
="pnlreport_"& TEXT(now(),"yymmdd")& ".xls"
this will produce: pnlreport_060321.xls if today's date is 21st March
2006.

I need to activate this file, which is already open through VB. But it
gives me a run time error in above code.


Thanks

you have & ".xls" already in A1, i didn't know until you just posted the
formula, so this wouldn't work.

--


Gary


"VB Script for Excel" wrote in message
ups.com...
Again gives me same Run Time Error '9': Subscript out of range. Makes
the line Windows(fileA & ".xls").Activate as yellow.

Thnx

IT WORKS GARY!!!!
thank you so much and thanks a millionsss.
i really appreciate your help

Dhaval

you're welcome

--


Gary


"VB Script for Excel" wrote in message
oups.com...
IT WORKS GARY!!!!
thank you so much and thanks a millionsss.
i really appreciate your help

Dhaval