簡単に並びを解除するリスタート機能。再実行も即可能になる

Sub リスタート実行()
    ErEnd = False
    Dim ANS, Ans1 As Long
    
        If AreaVAlert = True Then
            MsgBox "並び替えの部分指定でデータ幅不一致の場合は、" _
                & "この機能は使用できません。"
            Exit Sub
        End If
        DataSN = ws.Name
        If DataNSN <> DataSN Then
            MsgBox "シートが変更されましたので、並び替えデータ" _
                & "シート全体のチェックが必要です。" & vbCrLf & _
                "「並び替えデータシート全体チェック」をまず実行" _
                & "してください。", vbInformation, "実行するには・・"
        Exit Sub
        End If
    If ADRange Is Nothing Then
        MsgBox "並び替えデータシート全体のチェックが必要です。" _
            & vbCrLf & "「並び替えデータシート全体チェック」を" _
            & "まず実行してください。" _
            , vbInformation, "実行するには・・"
        Exit Sub
    End If
        If ErEnd = True Then
            MsgBox "この操作は、条件設定の不備により実行されません。"
            Exit Sub
        End If
        On Error Resume Next
        With ws
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=Range("A1"), Order:=xlAscending
            .Sort.SetRange ADRange.CurrentRegion
            With ソートナビゲーター
                If .先頭行は見出し行 = True Then
                    ws.Sort.Header = xlYes
                ElseIf .先頭行はデータ行 = True Then
                    ws.Sort.Header = xlNo
                Else
                    MsgBox "先頭行のタイプを選んでください。" _
                        , vbExclamation, "再試行"
                    Exit Sub
                End If
            End With
            Ans1 = MsgBox("A列基準で昇順並び替えを実行します。よろしい" _
                & "ですか？", vbOKCancel + vbExclamation, "実行確認")
            If Ans1 = 2 Then
                MsgBox "承知しました中止します。"
                Exit Sub
            Else
                .Sort.Apply
            End If
        End With
        On Error GoTo 0
End Sub