在线等 批量制作工作表的宏命令问题

我想直接制作多个工作表

怎么限定工作表的个数

然后工作表的名称是2-100之间的偶数

我的命令

Sub Macro3()
'
' Macro3 Macro
'
' 快捷键: Ctrl+q
'
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "2"
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "4"
    Sheets("Sheet3").Select
    Sheets("Sheet3").Name = "6"
    Sheets("Sheet4").Select
    Sheets("Sheet4").Name = "8"
    Sheets("Sheet5").Select
    Sheets("Sheet5").Name = "10"
    Sheets("2").Select
End Sub

sub addSHT()
for i = 2 to 100 step 2
sheets.add After:=Sheets(Sheets.Count)
activesheet.name = i
next
end sub