質問: nothing activesheet.protect drawingobjects:=true, contents:=true, scenarios:=true end sub
回答: こんなカンジでしょうか。 sub macro1() dim res as range on error resume next ’シートを保護する activesheet.protect userinterfaceonly:=true ’対象のセルを指定する set res = application.inputbox(prompt:="select range", title:="selection", type:=8) ’キャンセルしたら終了する if res is nothing then exit sub ’コピーして貼り付ける range("a42:az84").copy destination:=res.cells(1) end sub