初投稿

#目的
当面は自身の知識のインターネット上での公開のためにこのブログを使うかな。。。

#試し書き

test01.xlsm

    Public Sub MakeApplicationHolidayWork()
    Dim i As Integer
    Dim fPath As String
    Dim fName As String
    Dim area As Range
    Dim temp As Range
    
    Set area = Worksheets("休出予定社員一覧").Range("B3").CurrentRegion
    Set area = area.Offset(1).Resize(area.Rows.Count - 1)
   
    'シートをコピーして新規ブックを作る
    

        'ブックの保存
    For Each temp In area.Rows
        fPath = ThisWorkbook.Path
        fName = ThisWorkbook.Path & "休日出勤届" & "_" & temp.Cells(1, 2).Value
        '週間予定表シートを最終シートにコピーする
        Worksheets("休日出勤届").Copy
        Workbooks(Workbooks.Count).Close SaveChanges:=True, Filename:=fName
    Next
            

End Sub

#気になっている事
後から記事の修正ってどうやるんだろう、、、