WorksheetFunction.Matchを使えばいいんやよ