列全体を選択する

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

End Sub