>>28
>>Set x = selected.Row ' ここでエラー

x = Selected.Row