コンボボックスを自動更新

質問

お世話になります。

シート１のA1セルに　名前　B1セルに期限と入力してあり
A2セル　リンゴ　　B2セル　1703
A3セル　バナナ　　B3セル　1703
A4セル　ぶどう　　B4セル　1704
A5セル　キウイ　　B5セル　1704　
A6セル　お米　　　B6セル　1706
A7セル　酒　　　　B7セル　1708
以下　同様に入力しています。
B2以下に入力されているのは4桁の数字で
小さいほうから大きいほうに並んでいます。
同じ数字が入力されていることもあり、
また欠番も存在します。

この期限をユーザーフォームにコンボボックス設置して
重複なし表示させています。以下のコードです。
Private Sub UserForm_Initialize()
Worksheets("Sheet1").Select
名前.Value = Cells(2, 1).Value
期限.Value = Cells(2, 2).Value

X = 期限.Value
nextGyo = Range("B:B").Find(X).Row
'Dim リスト As New Collection
'Dim 列 As String, 上端セル As String, 最下端セル As String
'Dim セル範囲 As Range, 各セル As Range

列 = "B" '※3
上端セル = 列 & "2" '※4
最下端セル = 列 & "65536"
With Worksheets("Sheet1") '※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.期限.AddItem 各セル.Value 'コンボボックスのリストに項目を追加
End If
On Error GoTo 0
Next

End Sub
上記の例だと「1703」「1704」「1706」「1708」の
4種類から選択できる状態です。

ここでコンボボックスで1704を選択して
（コンボボックスには自由に入力はさせずにリストの中から選ばせるようにしています）
ユーザーフォーム上のボタンを押すと
A4セル　ぶどう　　B4セル　1704
A5セル　キウイ　　B5セル　1704
を行削除して空白行を上に詰めるコードを書きました。

ただこのときコンボボックスには
リストの更新がされないので「1704」が表示されたままです。
削除した時点で「1704」がない状態にするには
（自動更新をかける）
どうしたらよいでしょうか？
（削除するコードの中に
　Call UserForm_Initialize　と書いてみたのですが
　何も変化ありませんでした）

どうかよろしくお願いいたします

回答No.1

mshr1962 · ベストアンサー

>行削除して空白行を上に詰めるコードを書きました。
該当のコードの最後（End_Sub）の前で

コンボボックス名.Value = Null

と追加すればいいのでは？

お礼

早速ありがとうございます。

質問の書き方がわかりにくく申し訳ありませんでした。
コンボックスに表示されている値は
自動的に「1703」となっています。
ただリストの中に
「1704」が存在しているので
これか自動的になくなれば・・・と思っています。