VBA to create new folder, named (yyyy-mm-dd) based on what's next business day : This in my current folder and Workbook (ThisWB) holding my vba:

**\2018-10-18\ThisWB.xlsm**

This is new folders what I want to create from running vba in "ThisWB.xlsm":

**\2018-10-19\R2**

(only example, does not match today's date)

First folder should be named based on tomorrows date. Next one should be fixed to "R2".
As I move stuff around a lot, I'm hoping for a vba that doesn't need the entire folder path starting with "C:\".

And here's the real bugger: When running vba on weekdays monday to thursday, folder should be named based on tomorrows date.
When running vba on friday (or saturday), folder should be named based on next business day - which for me is monday...

Can this be done?