ワークシートの名前を変えたりブック間移動の変更点

追加された行はこの色です。
削除された行はこの色です。
ワークシートの名前を変えたりブック間移動へ行く。

 [[tipsやちょっとしたスクリプト]]
 
  'このスクリプトはパブリックドメイン またはMITライセンスの何れかでライセンス
  'されます。
  Sub MovSheet()
      r = 2
      Do While Cells(r, 1).Value <> ""
      ActiveWorkbook.Sheets(r).Name = " " & r
      
      r = r + 1
      Loop
      
      r = r - 1
      Do While r > 1
          If Cells(r, 2).Value = "" Then
              ActiveWorkbook.Sheets(r).Name = Cells(r, 1)
          ElseIf Cells(r, 3).Value = "" Then
                      ActiveWorkbook.Sheets(r).Name = Cells(r, 2)
          ElseIf Cells(r, 4).Value = "" Then
              Set wb = ActiveWorkbook
              sn = Cells(r, 2)
              ActiveWorkbook.Sheets(r).Name = sn
              ActiveWorkbook.Sheets(r).Copy _
                  before:=Workbooks(Cells(r, 3).Value).Worksheets(1)
              wb.Activate
          ElseIf Cells(r, 4).Value = "MOVE" Then
              Set wb = ActiveWorkbook
              sn = Cells(r, 2)
              ActiveWorkbook.Sheets(r).Name = sn
              ActiveWorkbook.Sheets(r).Move _
                  before:=Workbooks(Cells(r, 3).Value).Worksheets(1)
              wb.Activate
          End If
              
          r = r - 1
          ActiveWorkbook.Sheets(1).Select
      Loop
  End Sub

ワークシートの名前を変えたりブック間移動 の変更点

ワークシートの名前を変えたりブック間移動の変更点