Excel VBAコマンドボタンで複数の行を削除するには

Question

Excelのコマンドボタンを使用して1行を選択して削除できます。 削除は12行目以降の行に対してのみ実行できます。以下、私が持っているコードです： -

Sub Button_delete_row() 
If ActiveCell.Row > 12 Then 
ActiveSheet.Unprotect "xxxx" 
Rows(ActiveCell.Row).Delete 
ActiveSheet.Protect "xxxx", True, True 
End If 
End Sub 

コマンドボタンの私の上記のコードでは、私は、マウスクリックや削除をハイライトすることによってのみ、1行を選択することができます。 私の問題は、マウスのドラッグで強調表示して複数の行を選択し、これらの行を削除するコマンドボタンをクリックすることです。

Answer 1

おそらく以下を使用しますか？

Selection.EntireRow.Delete 

複数のセルを選択してボタンをクリックすると、関連する行が削除されます。