Sorting Worksheets

[cuetipper]

Would it be possible to loop thuru all the worksheets , counting how many rows are used in colum A, and move the position of the worksheets so the ones with the highest @ of entries are on the left , diminishing to the right?

 

[John_w]

Try this macro:

Public Sub Sort_Worksheets()
    
    Dim i As Long, j As Long
    
    With ThisWorkbook
        For i = 1 To .Worksheets.Count
            For j = 1 To .Worksheets.Count - 1
                If .Worksheets(j).Cells(Rows.Count, 1).End(xlUp).Row < .Worksheets(j + 1).Cells(Rows.Count, 1).End(xlUp).Row Then
                    .Worksheets(j).Move After:=.Worksheets(j + 1)
                End If
            Next
        Next
    End With
    
End Sub

 

[cuetipper]

I tried to run this script but nothing happened.

 

[John_w]

Are you running it on the workbook in which the code resides or on another workbook? If the latter try changing ThisWorkbook to ActiveWorkbook.

 

[cuetipper]

That was it. thanks so much.