投稿/コメントを表示します。

ワークシートの変数便利ですね 
「目標 フォローメールセミナーには2回に1回は感想を送る事にする」
Sub Sample()
Dim shTo As Worksheet
Set shTo = ActiveSheet
shTo.Name = st
End Sub

Right(Year(dt), 2) Year関数も覚えます。
紙に書いて持ち歩きます。
2019/02/20 19:04