Excel - 現在のシートを複製するマクロ

' Duplicate a current worksheet macro
Sub DuplicateWorksheet()
 
    Dim sheetName As String
    Dim sheetIndex As Long
 
    sheetName = ActiveSheet.Name
    sheetIndex = ActiveSheet.Index
    Worksheets(sheetName).Copy After:=Worksheets(sheetIndex)
    
End Sub