[[20180130162453]]　『Selection.Delete Shift:=xlUpでデバックします』（むぅ）　ページの最後に飛ぶ

『Selection.Delete Shift:=xlUpでデバックします』（むぅ）

何度もすみません。
前回あまりに初歩的な質問でお時間いただき申し訳ありませんでした。
もう一度お力お貸し願いたく
宜しくお願いします。

下記のエラーが出るため先に進めません。

 Selection.Delete Shift:=xlUp
の部分にデバックします。

宜しくお願い致します

実行時エラー1004
RangeクラスのDeleteメソッドが失敗しました
が表示されます。

Sub 検索結果消去()
'
Sheets("図面登録台帳").Unprotect Password:="1"

    Sheets("検索結果").Select
    Rows("2:1000").Select
    Selection.Delete Shift:=xlUp
    Range("A2").Select
End Sub

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

読んで下さった方。

本当にすみません。

何故か今デバックせずに進みました。
何度も試行して出来なかったのに・・

お騒がせしてすみません
以後気をつけます
（むぅ） 2018/01/30(火) 16:36

 ところで
 >Sheets("図面登録台帳").Unprotect Password:="1" 
 は何のために？
 行を削除しているシートは「検索結果」のようだが。
（ねむねむ） 2018/01/30(火) 16:41

ねむねむ様

図面登録台帳シートに検索ワードを入力しますが
そこに保護が掛かっています。

ありがとうございました。

（むぅ） 2018/01/30(火) 16:49

コメント返信：