setting a workbook as a constant

[choubix]

hello,

I have a workbook that is going to dig up data from other workbooks.

is it possible to set these workbooks (data source) as constants so I don't have to change every single line where their name appears in case we need to change their name??

I tried somehting like this:

Public Const input = "myworkbook1.xls"

and then tried to call:

workbooks("input").activate

it didnt work.

my idea is to set all the workbooks I need to use as constant and to call them like this:

input.activate
input1.activate etcetc

any idea please??

[mdmackillop]

[VBA]
Sub Test()
Dim WB1 As Workbook, WB2 As Workbook 'etc
Set WB1 = Workbooks.Open("C:\AAA\Book2.xls")
Set WB21 = Workbooks.Open("C:\AAA\Book3.xls")
WB1.Activate
End Sub
[/VBA]

[Bob Phillips]

That should work, thae activate line that is but better like this

[vba]

Public wb1 As Workbook
Public wb2 As Workbook

Sub MySub()

Set wb1 = Workbooks("myworkbook1.xls")
Set wb2 = Workbooks("myworkbook2.xls")

'...

wb1.Activate

'...

wb2.Activate

[/vba]

[mdmackillop]

Hi Choubix,
When you use a variable, do not enclose it in quotes, or it is read as a string

workbooks("input").activate

should be

workbooks(input).activate