Dim Array() As Workbook??

I originally Dimmed the array WorkBookNames() as Variant. Now it is biting me in the a$$.

I wish to Activate WorkBookNames(0) :
[vba]
Sub RunMixedMetrics()


Dim MyPath As String
Dim WorkBookNames() As Variant

MyPath = ActiveWorkbook.Path
'Debug.Print MyPath
WorkBookNames = Array("20LW6_TEST_redo.xls")
Workbooks.Open Filename:=MyPath & "\" & WorkBookNames(0)

WorkBookNames(0).Activate 'THIS LINE FAILS


'Workbooks(WorkBookNames(0)).Save
'Workbooks(WorkBookNames(0)).Close
End Sub
[/vba]

I tried

[VBA]
Sub RunMixedMetrics()


Dim MyPath As String
Dim WorkBookNames() As Variant
Dim CurrentWorkBook As WorkBook

MyPath = ActiveWorkbook.Path
'Debug.Print MyPath
WorkBookNames = Array("20LW6_TEST_redo.xls")
Workbooks.Open Filename:=MyPath & "\" & WorkBookNames(0)

Set CurrentWorkBook = WorkBookNames(0) 'NOW THIS LINE FAILS
CurrentWorkBook.Activate


'Workbooks(WorkBookNames(0)).Save
'Workbooks(WorkBookNames(0)).Close
End Sub
[/VBA]

WorkbookNames is an array of string, not an array of workbooks.

Use

[vba]

Sub RunMixedMetrics()


Dim MyPath As String
Dim WorkBookNames() As Variant

MyPath = ActiveWorkbook.Path
'Debug.Print MyPath
WorkBookNames = Array("20LW6_TEST_redo.xls")
Workbooks.Open Filename:=MyPath & "\" & WorkBookNames(0)

Workbooks(WorkBookNames(0)).Activate 'THIS LINE FAILS


'Workbooks(WorkBookNames(0)).Save
'Workbooks(WorkBookNames(0)).Close
End Sub
[/vba]

Quote:

---

Originally Posted by xld

WorkbookNames is an array of string, not an array of workbooks.

Use

[vba]

Sub RunMixedMetrics()


Dim MyPath As String
Dim WorkBookNames() As Variant

MyPath = ActiveWorkbook.Path
'Debug.Print MyPath
WorkBookNames = Array("20LW6_TEST_redo.xls")
Workbooks.Open Filename:=MyPath & "\" & WorkBookNames(0)

Workbooks(WorkBookNames(0)).Activate 'THIS LINE FAILS


'Workbooks(WorkBookNames(0)).Save
'Workbooks(WorkBookNames(0)).Close
End Sub
[/vba]

---

Gracias!