Private Sub UserForm_Initialize()               'ユーザーフォームを初期化する
Dim リスト As New Collection
Dim 列 As String, 上端セル As String, 最下端セル As String
Dim セル範囲 As Range, 各セル As Range
'
    列 = "B"                                    '※3
    上端セル = 列 & "2"                         '※4
    最下端セル = 列 & "65536"
    With Worksheets("SSS")                      '※5
        Set セル範囲 = .Range(.Range(上端セル), .Range(最下端セル).End(xlUp))
    End With
    For Each 各セル In セル範囲                 'セル範囲の各セルについて繰り返し処理
        On Error Resume Next                    '次行が実行時エラーならその次行から継続
        リスト.Add 各セル.Value, CStr(各セル.Value) 'Collectionオブジェクトにメンバを追加
        If Err.Number = 0 Then                  '実行時エラーが発生していなければ
            Me.ComboBox1.AddItem 各セル.Value   'コンボボックスのリストに項目を追加
        End If
        On Error GoTo 0
    Next
End Sub