如何使用excle VBA 新增sheet於當前工作表之後並命名

版本 excel 2003


需求：我需要把當前工作簿的名稱最後一位數+1，並新增在當前工作簿之後
在google上爬了一陣子，東湊西湊弄出以下代碼，大概符合我的要求了
但新增活頁簿時會新增在當前活頁簿的左邊，要如何讓他直接加在右邊呢?

;==================================
Sub fh()
Dim fname As String
fname = ActiveSheet.Name
newnameBefore = Left(fname, 5) '從當前工作表獲取名稱前五個字
newnameAfter = Right(fname, 1) '從當前工作表獲取名稱最後一字
newnameAfter = newnameAfter + 1 '將newnameAfter+1，以避免新工作表名稱重複
'MsgBox newnameBefore & newnameAfter
Sheets.Add.Name = newnameBefore & newnameAfter
End Sub
;==================================