error check the ubound of the array

dim intTemp as integer
dim bolNothing as boolean

bolNothing = false
on error goto OutOfBounds
intTemp = ubound(array)
on error goto 0
if bolnothing = true then
''do what you need to do when nothing in array
endif
'''proced with code if there is stuff in array


OutOfBounds:
'''Your array has nothing
bolNothing = true
resume next

Keith
www.kjtfs.com


---
Message posted from http://www.ExcelForum.com/