質問: nothing end sub
回答: >path = createobject("wscript.shell").specialfolders("desktop") & "\実績綴り"の >path = が黄色くなり、コンパイルエラー 変数が定義されていません。 おかしな現象ですね、貴方がアップされた set wsh = createobject("wscript.shell") path = wsh.specialfolders("desktop") & "\実績綴り" にはエラーが出なくて私のには出たわけですね・・・ おそらく変数の宣言をされていないからですね dim path as string ただ、貴方の書かれたpathを流用しましたがpathはpathプロパティとして使われますので mypath などとしたほうが良いですね dim mypath as string dim wbk as workbook dim sn as string mypath = createobject("wscript.shell").specialfolders("desktop") & "\実績綴り" set wbk = workbooks.open(mypath & "\年間集計表.xls") with thisworkbook.worksheets("月売上") sn = format(.range("r4").value, "ge年m月度") 'on error resume next '※既に年間集計表に"ge年m月度"が有れば削除 'wbk.worksheets(sn).delete 'on error goto 0 '"ge年m月度"シートを年間集計表の最前列のシートの前に追加 .copy before:=workbooks("年間集計表.xls").sheets(1) end with activesheet.name = sn '年間集計表を上書き保存 wbk.close true