質問: xlnone end select end sub
回答: private sub worksheet_selectionchange(byval target as range) if intersect(target, range("a8:a5000")) is nothing then exit sub end if if文でここが抜けておりました。 on error resume next これを追加しました。 select case target.value case is = "連絡待ち" target.font.colorindex = 5 case is = "取引連絡中" target.font.colorindex = 23 case is = "取置き" target.font.colorindex = 3 case is = "入金連絡あり" target.font.colorindex = 4 case is = "発送準備中" target.font.colorindex = 7 case is = "発送待ち" target.font.colorindex = 17 case is = "発送済み" target.font.colorindex = 16 'case else 上のif文で判断しているので不要 'target.font.colorindex = xlnone end select end sub 分かり易くするためフォントの色を変えてやってみました、プログラム事態は動くのですがコピーしたときやクリックしたとき複数のセルが選択されると指摘のエラーが出ましたので強制的に回避するため on error resume next 文をいれました。 とりあえず動きましたので試してみてください、エラーが出たらまたアドバイスを聞いてみてください。