Sheet tabs in Excel

aprilrice 

The following macro will prompt for a date, then create a new workbook with one worksheet for each workday of that month.

If you save the macro in your personal macro workbook PERSONAL.XLSB it will always be available.

Sub WorkingDaysWorkbook()
    Dim dtm As Date
    Dim mnt As Long
    Dim wbk As Workbook
    Dim wsh As Worksheet
    On Error GoTo ErrHandler
    dtm = InputBox(Prompt:="Enter any date in the month")
    Application.ScreenUpdating = False
    mnt = Month(dtm)
    dtm = dtm - Day(dtm)
    Set wbk = Workbooks.Add(xlWBATWorksheet)
    Set wsh = wbk.Worksheets(1)
    Do
        dtm = Application.WorkDay(dtm, 1)
        If Month(dtm) <> mnt Then Exit Do
        Set wsh = wbk.Worksheets.Add(After:=wsh)
        wsh.Name = dtm
    Loop
    Application.DisplayAlerts = False
    wbk.Worksheets(1).Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    Beep
End Sub