Public Function IsArray(vArray As Variant)
  If VBA.IsArray(vArray) Then
    On Error Resume Next
    Dim nTemp As Long
    nTemp = LBound(vArray)
    IsArray = (Err.Number = 0)
    On Error GoTo 0
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de