EXCEL 指定某个工作表标签移动到活动工作表前

//在ThisWorkbook模块中加入

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.EnableEvents = False
   mySh = Sh.Name
   Sheets("LIST").Move Before:=Sh
   Sheets(mySh).Select
Application.EnableEvents = True

End Sub

//其中LIST 为指定工作表标签名称