行全体を選択する

Sub 選択セルの行全体を選択する()
  If TypeName(Selection) <> "Range" Then Exit Sub
  Selection.EntireRow.Select


End Sub