Modified dir query method
Fixed blank cells throwing error from Excel