Excel VBA 質問スレ Part70

[639 デフォルトの名無しさん (ﾜｯﾁｮｲ c710-TNk6) 2021/05/03(月) 20:20:21.53 ID:BZOTVT3k0]

シート上の複数のリストボックスの選択済みをボタンを押すと
一括クリアしたいと思っています。

For i = 0 To ActiveSheet.OLEObjects("ListBox1").ListCount - 1
If ActiveSheet.OLEObjects("ListBox1").Selected(i) = True Then
ActiveSheet.OLEObjects("ListBox1").Selected(i) = False
End If
Next i

このコードではオブジェクトがないとエラーになります。

どなたかご教授ください。