Hello, have a multiselect listbox in a user form populated from a database,

trying to have a default selection list on a worksheet range.

trying to make it so that for each item in the default selection range, will have it's equivalent selected on the listbox.

This because there are many option to select on the listbox and have a button-activated 'default' selection would be awesome.

Here it the code I am currently trying

Private Sub DefaultSelection_Click()
Dim lItem As Long

    For lItem = 0 To Listbox1.ListCount - 1
   If Application.WorksheetFunction.CountIf(Sheet1.Range(Default_Selection_Area), lItem) > 0 Then
Listbox1.Selected(lItem) = True
           End If
    Next
    End Sub

Any tips?