if you are using xls file you have to change this line
Code:
    strExt = ".xlsm" 'Change to suit
to
Code:
    strExt = ".xls" 'Change to suit