How to open an array?

Unknown said:

Dim y As Duoble

First, use Option Explicit.  The VBA editor will catch typos like a mis-spelled name.

Unknown said:

Dim x (1 To y) As String

You want an elastic array.  Look up the Redim statement in VBA help.  Hint: type Redim in your code.  Leave the cursor inside the word.  Press F1 to pop Microsoft VBA help.

Thanks. ReDim works.

And may you also tell me what's wrong with the following?    

Solved. That' ok

===================================================

ReDim oWorkSheetName(1 To oWorksheetNum) As String

For i = 1 To oWorksheetNum

Set oWorkSheet = oExcel.Worksheets(i)
oWorkSheetName(i) = oWorkSheet.Name

Debug.Print oWorkSheetName(i) 
Next

===================================================

===================================================ReDim [preserve] oWorkSheetName(1 To oWorksheetNum) As String

For i = 1 To oWorksheetNum
Set oWorkSheet = oExcel.Worksheets(i)
oWorkSheetName(i) = oWorkSheet.Name

Debug.Print oWorkSheetName(i)
Next===================================================

You might want to add this 'Preserve'  ( take away the square brackets [] ) option to retain the content of your array when you are re-dimensioning it to a larger or smaller range.