User Form functionality

[Sweedler]

Hello EXCEL community,

So I have a large document divided into several sections. See pic below for basic appearance:

In the entire sheet, the sections in green are the only things that are in column A. I want to create a user form that allows me automatically create a checklist for all the sections, to be able to DOUBLE CLICK a section in the user form list to navigate there and. I ave seen this done and have looked at that document but have not been able to recreate the effect.

Here is the code I'm using to navigate via doubleclicking (all code from USERFORM)

Private Sub lvSektioner_DblClick()
    For i = 17 To 1000
        If shNormal.Range("A" & i).Value = Me.lvSektioner.SelectedItem Then
            shNormal.Activate
            shNormal.Range("A" & i).Select
            Exit Sub
        End If
    Next i
End Sub

i think this one creates the list on the USERFORM:

Private Sub lvSektioner_Markera(intAlt As Integer)
    Dim lv As MSComctlLib.ListView
    Dim li As MSComctlLib.ListItem
    Dim b As Boolean
   
    Set lv = Me.lvSektioner
   
    b = IsSheetProtected(shNormal)
    If b Then
        shNormal.Unprotect "sb123"
    End If
   
    Application.Cursor = xlWait
    Application.ScreenUpdating = False
   
    For Each li In lv.ListItems
        Select Case intAlt
        Case 1 'Alla
            If li.Checked = False Then
                li.Checked = True
                VisaSektion True, Mid(li.Key, 4)
            End If
        Case 2 'Endast låst design
            If li.SubItems(1) = "X" Then
                If li.Checked = False Then
                    li.Checked = True
                    VisaSektion True, Mid(li.Key, 4)
                End If
            Else
                If li.Checked = True Then
                    li.Checked = False
                    VisaSektion False, Mid(li.Key, 4)
                End If
            End If
        Case 3
            If li.SubItems(1) = "X" Then
                If li.Checked = True Then
                    li.Checked = False
                    VisaSektion False, Mid(li.Key, 4)
                End If
            Else
                If li.Checked = False Then
                    li.Checked = True
                    VisaSektion True, Mid(li.Key, 4)
                End If
            End If
        End Select
    Next li
   
    If b Then
        shNormal.Protect "sb123"
    End If
   
    Application.ScreenUpdating = True
    Application.Cursor = xlDefault
   
End Sub

Right now this is the CODE the seems to freeze the entire process:

Private Sub lvSektioner_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    Dim li As MSComctlLib.ListItem
    Dim lRad As Long
    Dim b As Boolean
   
    Application.Cursor = xlWait
    Application.ScreenUpdating = False
   
    b = IsSheetProtected(shNormal)
    If b Then
        shNormal.Unprotect "sb123"
    End If
   
    Set li = Item
    lRad = Mid(Item.Key, 4)
   
    If li.Checked Then
        VisaSektion True, lRad
    Else
        VisaSektion False, lRad
    End If
   
    If b Then
        shNormal.Protect "sb123"
    End If
   
    Application.ScreenUpdating = True
    Application.Cursor = xlDefault
   
End Sub