マイナンバーが12桁以外のものを赤色にするマクロの例 Excel VBA

Sub マイナンバー12桁以外を赤色にするよ()
Application.ScreenUpdating = False

Dim reg
Set reg = CreateObject(“VBScript.RegExp”) ‘オブジェクト作成
Dim myRng As Range
Dim txt As String
Dim i As Long
With reg
.pattern = “d{13}|^d{1,11}$”
.IgnoreCase = True
.Global = True
End With
On Error Resume Next
For Each myRng In Selection
txt = myRng.Value
If reg.test(txt) Then
myRng.Interior.ColorIndex = 3
End If
Next myRng

Application.ScreenUpdating = True
End Sub
・・・・・・・・・・・・・・・・・
利用しているExcel：
Microsoft® Excel® for Microsoft 365 MSO
(バージョン 2311 ビルド 16.0.17029.20028) 64 ビット

動画編集アプリ：
Microsoft　Clipchamp

注意事項：
このやり方は、動画公開時点での情報です。
今後のExcel機能追加や変更などで、やり方が異なる場合や
関数の仕組みが変更される場合があります。
ご自分の環境にあったやり方で調整してください。

補足：
なるべくYouTubeに公開されていない動画を作ります。
こんなこと教えてほしい等、ご要望がありましたら
お気軽のコメントください。参考にします。