仕事でエクセルVBAでちょっと便利な小道具作ってるんですが、その過程でネットで調べにくかったとことかをまとめてみようとおもふます。 ここに書いておけば私も探す手間が省ける。むしろそれが重要。 ダイアログ OK、キャンセルボタン表示でかつキャンセルにデフォルトでフォーカスあたってるバージョン rtn = MsgBox("処理を開始します。" & vbCrLf & "よろしいですか?", _ vbOKCancel + vbQuestion + vbDefaultButton2) If rtn = vbCancel Then Exit Sub End If 行コピー ヘッダのある資料とかでヘッダはいらないけどデータだけまるっとほしい場合 Sheets(Left(ActiveSheet.Name, 4)).Range("A1").CurrentRegion.Offset(2, 0).Copy _