- Local time
- Today, 08:18
- Sep 21, 2011
Yes, that is due to the function??????
Clue (which if the code was indented would be easy to see?)
If lngType <> 2 And lngType <> 4 Then 'Reset then add filter patterns separated by tildes (~) where ' multiple extensions are separated by semi-colons (;) and the ' description is separated from them by a comma (,). ' Example strPattern : ' "MS Access,*.ACCDB; *.MDB~MS Excel,*.XLSX; *.XLSM; *.XLS" .filters.Clear For Each varEntry In Split(strPattern, "~") .filters.Add Split(varEntry, ",")(0), Split(varEntry, ",")(1) Next varEntry End If
What value of lngType are you passing???????
AGAIN! if you walked through the code, you would find that immediately
Plus you have commented out so much of the code that it is hard to see the wood for the trees???