実験機械の使用予定表をVBAで作成してみた

#はじめに
VBAで予定表を作ってみたのでQiitaにあげておきます
見知らぬ誰かや、後輩の役に立てれば幸いです

#予定表
以下、コードになります。
実際にはユーザーフォームでボタン一つで起動するようにしています

Sub 予定表作成()

'2021/04/16作成

'変数の定義
    Dim yr As Integer '年
    Dim m As Integer  '月
    Dim d As Integer  '日
    Dim j As Long     'ループ用変数
    Dim k As Integer  'ループ用変数
    
'エラーフラッグ
    On Error GoTo myError
   
'作成年度の入力
    yr = InputBox("何年の予定表を作るか入力してください")

'1月から12月まで予定表を作成
    For m = 1 To 12
        Worksheets.Add(After:=ActiveSheet).Name = yr & "年" & m & "月"
        
        Columns("A:K").ColumnWidth = 15
        Range("A2:K2").Borders(xlEdgeBottom).LineStyle = xlContinuous
        Range("A2:K2").HorizontalAlignment = xlCenter
        Range("A1:A35").Borders(xlEdgeRight).LineStyle = xlContinuous
        
        Cells(2, 2) = "COD"
        Cells(2, 3) = "TNTP"
        Cells(2, 4) = "pH EC"
        Cells(2, 5) = "SS"
        Cells(2, 6) = "ICP発光"
        Cells(2, 7) = "ICPMS"
        Cells(2, 8) = "イオンクロマト"
        Cells(2, 9) = "吸光光度計"
        Cells(2, 10) = "ホットプレート"
        Cells(2, 11) = "遠心分離機"
         
        k = 3
        d = 1
        
        'm月のワークシートに日付を入れていく
        For j = DateSerial(yr, m, 1) To DateSerial(yr, m + 1, 0)
            Cells(k, 1) = yr & "/" & m & "/" & d
            k = k + 1
            d = d + 1
        Next j
    Next m
 
'ユーザーフォーム閉じて終了
    Unload 予定表
    MsgBox yr & "年の予定表が作成されました"
    Exit Sub
   
'エラーフラッグ
myError: MsgBox "エラーが発生しました", vbExclamation
End Sub

#終わりに
プログラミングは初心者ですので、コードの書き方等で何かありましたら指摘していただけると幸いです
今後の改善点としては体裁をより整えることと、うるう年を考慮する必要があるかと思います。(2月29日に実験しなければいいのでは?)

最後までご覧いただきありがとうございました