推測で何の根拠もありませんが、 ListBox1.List(ListBox1.ListIndex, 0) の型が原因になっているのかもしれません。 実は、現時点ではこちらのPC環境ではエラー無く動きます。 Win10のExcel2010 Excel2013 Excel2019で動作確認してみました。 この環境以外でテストできませんので、エラーになるのか確認できていません。 このコードの一部は2018/9/27に修正を加えているので、この当時に動かしたことがあります。 このとき、お書きのエラーが発生したような気もするのですが、調べようとしたら、すぐに解消されたような記憶があります。 コードの方は弄っていないと思います。 何か更新のタイミング(OSの更新?)でおかしくなったのかな・・・と思ったような記憶がかすかに残っています。 エラーの原因を特定できず申し訳ありません。