Excel VBA代码将图纸向右或向左移动一步

我有一个带有任意数量工作表选项卡的工作簿。我想让命令按钮向左移动和向右移动，这将使工作簿中的工作表向左或向右移动，即，将工作表向左移动或将工作表向右移动。有没有一个简单的方法可以做到这一点？移动你必须知道工作表的名称才能在之前或之后移动它。我不知道如何将工作表的名称直接移到右侧或左侧。

这将使活动工作表向右移动：

Sub moveright()
    Dim s As Worksheet
    Set s = ActiveSheet
    If s.Next Is Nothing Then Exit Sub
    s.Move after:=s.Next
End Sub

---

这将使活动图纸向左移动：

Sub moverleft()
    Dim s As Worksheet
    Set s = ActiveSheet
    If s.Previous Is Nothing Then Exit Sub
    s.Move before:=s.Previous
End Sub

---

这将向右移动活动图纸：

Sub moveright()
    Dim s As Worksheet
    Set s = ActiveSheet
    If s.Next Is Nothing Then Exit Sub
    s.Move after:=s.Next
End Sub

---

这将使活动图纸向左移动：

Sub moverleft()
    Dim s As Worksheet
    Set s = ActiveSheet
    If s.Previous Is Nothing Then Exit Sub
    s.Move before:=s.Previous
End Sub

---

工作完美。谢谢工作完美。谢谢