Batch removing the second sheet from many excel sheets in R?

Question

I have many excel sheets that I need to remove the second sheet before importing them. All files are .xlsx type in one folder and have same format. What kind of function should I use to achieve such?

Before removal, the 'remarks' sheet needs to be removed

Wanted outcome: deleted sheet 'remarks'. need to loop it through all files in the folder

Thanks for your help in advance