Sub xx()
Dim an_x() As Long
k = 0
For i = 1 To 3
If k = 1 Then
ReDim Preserve an_x(1 To i)
an_x(i) = i + 6
End If
Next
'check whether an_x is empty or not empty.
'how can i know that the array is emptyed.

ubound or isarray or isempty or ismissing....
no ,no,no ???
End Sub


*** Sent via Developersdex http://www.developersdex.com ***