Array Assign Error

**wz4np1** · 08-14-2008, 08:09 AM

What is wrong with the following code? How do I fix it? I get a a run time error 13 "Type Mismatch" error when I execute.

Option Explicit

Dim S As Variant

Sub Calc1()
    S(1, 1) = 2  
    S(2, 1) = 3
    S(3, 1) = 4
End Sub

Thanks,

**StephenR** · 08-14-2008, 08:29 AM

You have to declare the size of the array

Dim S(1 to 3, 1 to 1)...

though I don't think you need the second dimension.

**Richard Schollar** · 08-14-2008, 08:29 AM

Hi

You need to dimension your array before you can fill it with values:

Option Explicit

Dim S As Variant

Sub Calc1()
    ReDim S(1 to 3,1 to 1)
    S(1, 1) = 2  
    S(2, 1) = 3
    S(3, 1) = 4
End Sub

Richard