AddItem をクリアしたい

質問

UserForm1.ListBox1.AddItem をクリアしたいです。
エクセルのユーザーフォームに全てのシート名を追加してるのですが

Sub a()
Dim s As Worksheet
For Each s In Worksheets
UserForm1.ListBox1.AddItem s.Name
Next
End Sub

を実行する度に追加されてしまいます。

Sub a()
Dim s As Worksheet

UserForm1.ListBox1.AddItem Null

For Each s In Worksheets
UserForm1.ListBox1.AddItem s.Name
Next
End Sub

のように、最初にリセットしてから追加したいのですが
どうもNULLだとエラーになるようです

どうすればリセットできますか？

回答No.1

DexMachina · ベストアンサー

UserFormのListBoxの場合、Itemの全件を削除するには
Clearを使用するようです。
(特定のItemのみ削除する場合はRemoveItemを使用)

Sub a()
　　Dim s As Worksheet

　　UserForm1.ListBox1.Clear
　　For Each s In Worksheets
　　　　UserForm1.ListBox1.AddItem s.Name
　　Next

End Sub

お礼

クリアしたいならClearすればいいだけでしたね。
盲点でした。ありがとうございました。