[EXCELVBA]シートをコピーして新しいシートを作成する

関数にしました。

'*******************************************************************************
'   コピーして新しいシートを作る
'   コピー先、コピー元,コピー場所
'*******************************************************************************
 Sub NewSheet(Name, Name2, Optional ByRef setNo = 1)
 
    Dim i, cnt As Integer
    Dim Existsheet

    g_WBK.Activate
    g_WBK.Sheets(Name2).Visible = True
    g_WBK.Sheets(Name2).Select
    g_WBK.Sheets(1).Activate
    g_WBK.Sheets(Name2).Copy after:=g_WBK.Sheets(setNo)
    g_WBK.ActiveSheet.Name = Name

End Sub