Private Sub LabelPInfo_Change()
If LabelPInfo.Caption = "" Then Exit Sub
 
Dim Blockname As String
Blockname = LabelPInfo.Caption & ".pdf"
 
Dim i As Integer
With ComboBox2
    For i = 0 To .ListCount - 1
        If .ListIndex(i) = Blockname Then
           .ListIndex(i) = True
        End If
    Next i
End With
End Sub

VG

Dirk