Tick Listbox options based on Cell Values

[Ravenous]

Hello friends,

I am seeking VBA to tick the corresponding boxes in a ListBox based on Cell values on another sheet. So basically in the attached example, the outcome would be that the below would all be ticked.

Other
Test 1
Test 2
Card Payment

I have attached an example workbook.


Any assistance would be much appreciated.

Thanks

[YasserKhalil]

Try this code

Sub Select_ListBox_Items()
    Dim ws As Worksheet, obj As Object, c As Range, m As Long, r As Long

    Set ws = ThisWorkbook.Worksheets("Lists")
    Set obj = ThisWorkbook.Worksheets("ListBox").ListBox21
    m = ws.Cells(Rows.Count, "CS").End(xlUp).Row

    With obj
        For r = 0 To .ListCount - 1
            .Selected(r) = False
        Next r
    End With

    For Each c In ws.Range("CS4:CS" & m)
        If c.Value <> "" Then
            With obj
                For r = 0 To .ListCount - 1
                    If c.Value = .List(r) Then .Selected(r) = True: Exit For
                Next r
            End With
        End If
    Next c
End Sub