Cannot assign to a simple array in VBA

[JoeS01]

I get a VBA compilation error at the first line below shown in red " Cannot assign to array"

Can anyone please suggest where I might be going wrong?

Dim aryCriticalItems(5) As String
Dim i%, j%
Dim LastRowNo%, RowNo%, ColNo%
Dim ce
Dim myRange As Range
 
[COLOR=red]aryCriticalItems = Array("245-8", "290-8", "315-8", "330-8", "336-8")[/COLOR]

 

[p45cal]

It's true, you can't. Try:

Option Base 1
Sub blah()
Dim aryCriticalItems '(5) As String
Dim i%, j%
Dim LastRowNo%, RowNo%, ColNo%
Dim ce
Dim myRange As Range
 
aryCriticalItems = Array("245-8", "290-8", "315-8", "330-8", "336-8")
End Sub

Option base 1 used because I see you wanted to Dim (5) and you had 5 variables, otherwise you'd have had aryCriticalItems(0 to 4)

 

[mikerickson]

The variable aryCriticalItems needs to be dimmed as Variant (not as Variant()).

The function Array always returns a zero based array.

 

[JoeS01]

thanks Mike. Yep, works well now. Much appreciated

 

[pgc01]

Hi Joe

If you prefer the result to be an array (1 To 5) instead of an array (0 To 4), write at the beginning of the module:

Option Base 1