Netestoval jsem, ale co toto:Filename = Dir(Path & "\*.xlsx")nahradit tímto:Filename = Dir(Path & "\*.xls*")