Sub CreateMonthlyAttendanceReports()
    Dim wsSource As Worksheet
    Dim i As Integer
    Dim newFileName As String
    Dim savePath As String

    ' 1. 원본 시트 설정 (원본 시트명이 Sheet1이 아닌 경우 수정 필요)
    On Error Resume Next
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    On Error GoTo 0
    
    If wsSource Is Nothing Then
        MsgBox "원본 시트(Sheet1)를 찾을 수 없습니다.", vbCritical
        Exit Sub
    End If

    ' 화면 업데이트 및 경고창 일시 중지 (속도 향상 및 저장 시 덮어쓰기 확인 방지)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' 2. 1월부터 12월까지 반복 작업 수행
    For i = 1 To 12
        ' 3. 원본 시트 복사 (워크북의 마지막 시트 뒤에 추가)
        wsSource.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        
        ' 4. 복사된 시트의 이름 수정 (예: 1월, 2월...)
        With ActiveSheet
            .Name = i & "월"
            
            ' 5. A1 셀에 지정된 텍스트 입력
            .Range("A1").Value = "재무팀 " & i & "월 근태 보고서"
        End With
    Next i

    ' 6. 원본 시트(Sheet1) 숨김 처리
    wsSource.Visible = xlSheetHidden

    ' 7. 다른 이름으로 저장 (현재 파일이 있는 경로에 저장)
    savePath = ThisWorkbook.Path & "\"
    newFileName = "2026년 재무팀 근태 보고서.xlsx"
    
    ' XLSX 형식(51)으로 저장
    ThisWorkbook.SaveAs Filename:=savePath & newFileName, FileFormat:=51

    ' 설정 원복
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox "작업이 완료되었습니다. 파일명: " & newFileName, vbInformation
End Sub