Expand only one section

I have form with 10 sections on it, all of them filled to the brim with tables and fields.

In one of the middle sections, I have a need to zoom the user down to the next to last section.

I’ve found the expandAllSections method and hope that there is a better way to narrow down which section I actually want to expand, instead of all of them??

I’m currently using this code snippet to accomplish this:

Sub Click(Source As Button)

Dim uidoc As NotesUIDocument

Dim workspace As New NotesUIWorkspace

Set uidoc = workspace.CurrentDocument

uidoc.EditMode = True

uidoc.ExpandAllSections

uidoc.gotofield("relatedDocLinks")

End Sub