ttp://suugleblog.blogspot.jp/2012/02/blog-post_4988.html

こちらのサイトを参考にして、セルに入力した文字を元に、別に用意されているリスト内で部分一致の検索を行い、
条件に一致したものをプルダウンで選択できるようにしたのですが、

スイカ１
スイカ２

のようにリストに入力されている状態で、「すいか」とひらがなで検索をかけると
Tg.Value = Left(strFormula, Len(strFormula) - 1)
の部分でエラーを吐いてしまいます。
Tg.Valueが「すいか」であるにもかかわらず、strFoumulaが空だからです。

strFoumulaが空の場合この処理を飛ばすようにしてエラーはでなくなったのですが、
なぜこうなってしまうのでしょうか‥。VBAの検索でひらがなカタカナは区別されるものだと思っているのですが。