質問: 255 ' 赤 end if end if next end sub 同じ private sub workbook_open() で始まるので丸められることが可能ならも含めていい方法を御指導いただけると幸甚です。 宜しくお願いします。
回答: 追加です。 (1)についてですが、そのままでも動作はするとおもいますが・・・ (1ヶ所間違いがありましたので直しています:3行目) 既に使用されている名前であったり、シート名に設定出来ない文字の場合はエラーになるかとおもいます。 以下のようにすることでエラーを回避できます。 (無効な名前が入力された場合はダイアログが表示され、名前は変わりません) (1)のコード private sub workbook_sheetchange(byval sh as object, byval target as range) if target.address = "$a$1" then call stname_change(sh, target.value) end if end sub private sub stname_change(sh as object, word as string) on error goto era sh.name = word exit sub era: msgbox word & "は無効な名前です" end sub