WorkSheets.Addと同時に変数wsに格納する【ExcelVBA】【シンプル】

ワークシートを追加する際に変数ws代入をシンプルにしたい
ワークシートを追加且つ変数に格納するサンプルコード
関連記事

ワークシートを追加する際に変数ws代入をシンプルにしたい

初心者の時代に返り値というのはそういうことかと理解した時がこれです。
どうしても下記のようにコードが縦に長くなってしまうため、
1行でまとめられないかと考えたことがきっかけです。

①WorkSheetを追加する(WorkSheets.Add)
②変数wsに格納する(Set ws)

ワークシートを追加且つ変数に格納するサンプルコード

Public Sub sample()
    Dim ws As Worksheet
    
    '■下記のような二行になったコードを
    Worksheets.Add
    Set ws = ActiveSheet
    
    
    '■コンパクトに1行にまとめてしまう事が可能です。
    Set ws = Worksheets.Add     '表示しているシートの直前の位置に新しいシートを追加
    
     
    '■最後尾のシートに新しいシートを追加
    Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
     

End Sub

初心者だからこそ丁寧に書くという事は大事なのですが、
丁寧すぎるのは後で見づらいケースがあります。

誰が読んでもわかるように、コードを「シンプルに書く」という事を常に心がけたいなと思います。