Barb,

Try something like

Dim V(1 To 7) As String ' Best practice to specify both lower and upper
bounds
Dim N As Long
For N = 1 To 7
V(N) = Format(DateSerial(2001, 1, N), "dddd")
Next N


"Barb" wrote in message
...
Hi,

I need to initialize MyArray (7)
By €œMonday€�. €œTuesday€�,


I tried MyArray = (€œMonday€�,€�Tuesday€�,€�Wednesday€�,,)


But it doesnt work!??