检查文件夹是否存在，并在其中保存两张VBA Excel表格

I need VBA to check if folder with name "Secret_information" already exists. If folder already exists then I need to save PDF and Excel from Worksheet (1) to this folder with special name (see VBA below). If folder does not exists then create new folder in the same direction my opened Excel file is already located. I have made VBA but it doesn't work correctly. Now it doesn't create xls file only pdf. Also this code creates folder to Desktop, I need it to create folder inside folder my opened Excel file is located. How to make it work?I need VBA to check if folder with name "Secret