subscript out of range

[Killa]

I am getting a subscript out of range error when i redim the pdf_index array.

what anm i doing wrong ?

Thanks
killa

Sub get_issues()
Static x, y
For i = 0 To File2.ListCount
PDF_file_issue = UCase(getissue(File2.List(i)))
no_hit = True
For j = 1 To arraymax
If pdf_Index(j, 1) = PDF_file_issue Then
no_hit = False
pdf_Index(j, 2) = UCase(CStr(CInt(pdf_Index(j, 2) + 1)))
End If
Next j
If no_hit = True Then
arraymax = arraymax + 1
ReDim Preserve pdf_Index(arraymax, 2)
pdf_Index(j, 1) = PDF_file_issue
pdf_Index(j, 2) = "1"
End If
Next i
End Sub

 

[PHV]

The VBA help on ReDim clearly says that only the last dimension may be changed with Preserve.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886