vba偵測目前所選擇的工作表名稱

'目前使用中的工作表的名稱
Msgbox ActiveSheet.name

插入新的工作表

Sub 插入新的工作表()
　Worksheets.Add
End Sub

//隱藏部分的文章
'-----------------------------------

  
Sub 插入新的工作表2()
　Worksheets.Add After:=Worksheets(1), Count:=2
　'After:=Worksheets(1)指定插入位置
　'Count:=2　　　　　　指定插入數量
End Sub