簡略化するためにあいうえおを使いましたが、実際は2〜10文字程度の文字列なので、
And (Range("B2").Value Like "東京|大阪|名古屋" Then
こうすればいいのかな?