本示例将当前工作表移到当前活动工作簿的最前面。

ActiveSheet.Move Before:=Worksheets(1)