problema con array

[eposse]

Hola a todos:

Por favor me podeís ayudar en lo siguiente:

quiero sustituir en esta macro la "w" por la referencia al array:


Sub prueba()
Dim myarray As Variant
myarray = Array(W, Y)

For j = 0 To 1
Columns("W :W").ColumnWidth = 14.57
Next j
End Sub

He probado a hacer lo siguiente pero no me funciona:

Sub prueba()

Dim myarray As Variant
myarray = Array(W, Y)
For j = 0 To 1
Columns("" & myarray(j) & " :" & myarray(j) &").ColumnWidth = 14.57
Next j



Muchas Gracias