質問: workbooks("一覧.xlsm").worksheets("b").cells.find(what:=id) if rg is nothing then msgbox "見つかりませんでした。" else rg.select end if end with end sub
回答: if colmus = 8 colmus って何ですか? .column が正しいような気がします。 option explicitを指定していないから、単純なミスに気が付かないんだと思います。