[算表] 工作表排序亂跳

[aazaz (使命創造天命)]

軟體: office 365

請朋友幫忙寫了個"工作表排序"的VBA如下：

===================================================
'--<<將[頁籤] 依[送貨方式]排序>>--
'
   Sheets("送貨方式").Select

'處理好頁籤的最後位置(初始為母本頁籤Start位置=3)
   nidx = 3

'x 由2開始為 跳過標題[送貨方式], 逐筆頁籤 找到對應[送貨方式] 移位置
   For x = 2 To Cells(Worksheets("送貨方式").Rows.Count, 1).End(xlUp).Row

       Sheets("送貨方式").Select
       send_mode = Cells(x, 1).Value

       For y = nidx + 1 To Worksheets.Count

           Sheets(y).Select

           If Range("B5").Value = send_mode Then

              Sheets(y).Move Before:=Sheets(nidx + 1)
              nidx = nidx + 1

           End If

      Next y

   Next x

   Sheets("Start").Select

End Sub

=================================================

但排序一直會亂跳，檢視發現原來是工作表順序亂了，

實際排序變成下面這樣

工作表387
工作表388
工作表389
工作表39
工作表391
工作表392
工作表393

朋友說可能是電腦版本問題，請問有什麼方式可以改善嗎?

希望有大神能路過降臨協助解答，感激不盡 <(_ _)>

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.194.184.228 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1614051993.A.FC3.html
→ soyoso: 提供檔案來測試會比較清楚
推 cracydancer: 用「工作表039」