選択範囲のアルファベットを大文字にする

さて、せっかくFor Each Next文を勉強したので、いろいろ作ってみたいと思います。

選択範囲のアルファベットを大文字に変換するマクロです。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Sub 選択範囲のアルファベットを大文字にする()
   
    Dim myRange As Range

    For Each myRange In Selection
        myRange.Value = StrConv(myRange.Value, vbUpperCase)
    Next myRange
   
End Sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

 ※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。