Listing only xlsm files of the folder with VBA

Hi

Need a code for my "List Files" button on a userform that should prompt me to select a folder . After selecting folder the ListBox1 on the same userform should be populated with the names of only xlsm files in that folder .My folder may contain sub folders but I don't need to list the files from the sub folders.

Help would be greatly appreciated.

Best Regards
Imran Bhatti

Test in attached file

Please Login or Register  to view this content.

Thanks kev you saved me from the traditional filter ( in red in what I got)

Please Login or Register  to view this content.