vbaは===がない上にisで比較できないパターンがあったはず
ユニークな名前で比較するやり方は正解