Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Hi, try this rule below. I think it does what you need

 

Sub Main ()
On Error Resume Next
Dim drawingDoc As DrawingDocument = ThisDoc.Document
Dim Sheet As Sheet = Nothing
Dim sheetsList As New List(Of Sheet)
Dim BrowserPane As BrowserPane = drawingDoc.BrowserPanes.Item("Model")

For Each Sheet In drawingDoc.Sheets
	sheetsList.Add(Sheet)
Next

sheetsList.Sort(AddressOf Comparer)

For Each Sheet In sheetsList
	Dim sheetNode As BrowserNode = BrowserPane.GetBrowserNodeFromObject(Sheet)
	Dim bottomNode As BrowserNode = BrowserPane.TopNode.BrowserNodes.Item(BrowserPane.TopNode.BrowserNodes.Count)
	BrowserPane.Reorder(bottomNode, False, sheetNode)
Next
End Sub

I hope it is useful for you. regards

 


Please accept as solution and give likes if applicable.

I am attaching my Upwork profile for specific queries.

Sergio Daniel Suarez
Mechanical Designer

| Upwork Profile | LinkedIn