Excelチェックボックスで文字を切り替えるマクロVBA

エクセルのチェックボックスにチェックが入っていれば「完了」入っていなければ「未」と出すマクロVBAの使い方です。コードはここからコピーして貼り付けるだけです。
コピペ用VBAコード
▼▼▼▼▼▼▼▼▼▼▼
Dim f As Long, i As Long, sh As Worksheet, c As Long
Set sh = ActiveSheet
c = sh.CheckBoxes.Count
For i = 1 To c
f = sh.CheckBoxes(i)
If f = xlOn Then
sh.CheckBoxes(i).TopLeftCell.Offset(0, 1) _
.Value = "完了"
Else
sh.CheckBoxes(i).TopLeftCell.Offset(0, 1) _
.Value = "未"
End If
Next i
▲▲▲▲▲▲▲▲▲▲▲
＜おすすめ動画紹介＞
📘Wordの使い方
入門・初心者➡ • Wordの使い方＜基礎がわかる！初心者・入門編＞
タブの幅揃え➡ • Wordでタブの間隔を揃えるにはルーラーを使...
📗Excelの生産性UP！
マウスを使い倒す！➡ • 【Excel】マウスのスゴ技テクニック集！シ...
ショートカットまとめ！➡ • 【Excel】作業高速化キーボード操作＆よく...
💻マクロ・VBAを学びたいなら
時間がない人用➡ • エクセルVBA・マクロ入門講座｜初心者がゼロ...
丁寧に学びたい人用↓マクロちゃんねる(サブチャンネル)
/ @macro-chan

[@user-pr8xt9ob3k]

チェックボックスより前の列、行にコメントを反映させる場合はどうすればいいですか？

[@_admin0]

チェックボックス配置するとそのExcelが重くなるから苦手(´・ω・｀)