Help importing files of specific types

Just some suggestions:

Read the list of filetypes into an array. As you know the first cell that has a value, then test to see if the next cell below has an entry. If so, then expand the array, redim preserve MyArray(1 to N) for example, when N is your counter and set the value of the Nth entry to the cell's value. Once you have the array filled, you can then test to see if the right most characters are equal to the array:

bfound = false
For I = 1 to N
if right(strfile, len(MyArray(i)) = myarray(i) then
bfound = true
exit for
next

If bfound is true then you perform the action you want.

Put the following at the top of your module

Option Compare Text

This eliminates case comparison issue.

Robert Flanagan
Add-ins.com LLC
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

Thank you both, I will experiment with this and let you know how i get on