Macro to organize (remove and sort) using clauses in Visual Studio. (Original Source)

Public Module Module1

    Sub OrganizeSolution()

        Dim sol As Solution = DTE.Solution

        For i As Integer = 1 To sol.Projects.Count

            OrganizeProject(sol.Projects.Item(i))

        Next

    End Sub

    Private Sub OrganizeProject(ByVal proj As Project)

        For i As Integer = 1 To proj.ProjectItems.Count

            OrganizeProjectItem(proj.ProjectItems.Item(i))

        Next

    End Sub

    Private Sub OrganizeProjectItem(ByVal projectItem As ProjectItem)

        Dim fileIsOpen As Boolean = False

        If projectItem.Kind = Constants.vsProjectItemKindPhysicalFile Then

            'If this is a c# file 

            If projectItem.Name.LastIndexOf(".cs") = projectItem.Name.Length - 3 Then

                'Set flag to true if file is already open 

                fileIsOpen = projectItem.IsOpen

                Dim window As Window = projectItem.Open(Constants.vsViewKindCode)

                window.Activate()

                projectItem.Document.DTE.ExecuteCommand("Edit.RemoveAndSort")

                'Only close the file if it was not already open 

                If Not fileIsOpen Then

                    window.Close(vsSaveChanges.vsSaveChangesYes)

                End If

            End If

        End If

        'Be sure to apply RemoveAndSort on all of the ProjectItems. 

        If Not projectItem.ProjectItems Is Nothing Then

            For i As Integer = 1 To projectItem.ProjectItems.Count

                OrganizeProjectItem(projectItem.ProjectItems.Item(i))

            Next

        End If

        'Apply RemoveAndSort on a SubProject if it exists. 

        If Not projectItem.SubProject Is Nothing Then

            OrganizeProject(projectItem.SubProject)

        End If

    End Sub

End Module