質問: range("d5").value activesheet.copy after:=sheets(2) end sub
回答: こんにちは それぞれ1行のコードを連結したってことでしょうか? 特段おかしなところは見当たりません・けれど・・ どの行で、どのようなエラーになっているのでしょうか? 推測するところ、d5セルにシート名で使用できない文字(\:/など)がはいっているとか。 あるいは、sheets(2)が存在しないとか。(シートが一つしかない状態)