Sintek,

I know where I messed up the first time, I didn't move the End If to the bottom.

This works flawlessly, you have no idea how happy I am right now.

Thank you SOOOO much for the time and help.

I have one last question for you if you don't mind. On the part where it creates the email 

 With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = wbsf1
        .Body = " Attached is the file - " & wbsf1
        .Attachments.Add Wbsf.FullName
        .Display '.send
The attached file shows this "Apex%20Inventory%20Report%2012-20-2023%20(1).xlsx" is there a way to remove the %20 from it?

Thanks again.

You ROCK