Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡでActivePasteエラーの対処方法

Ｏｆｆｉｃｅ３６５は、表計算ソフト、ワープロソフト、プレゼンテーションソフト、データベースソフト等が
入っているオフィスソフトです。これをインストールして置けば、家庭や仕事で多くの事が出来る様になります。

しかし、ＥｘｃｅｌでＶＢＡを動かしている時、ActivePasteエラーが発生する場合が有ります。
使用したパソコンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ１０（６４ｂｉｔ）バージョン21H1（ＯＳビルド 19043.1237）
オフィスソフト　　：　Ｅｘｃｅｌ　ｆｏｒ　Ｍｉｃｒｏｓｏｆｔ　３６５　ＭＳＯ（16.0.14527.20234）
　　　　　　　　　　　６４ｂｉｔ

以下、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡでActivePasteエラーの対処方法を記載して行きます。

（項目１）
　・ＥｘｃｅｌでＶＢＡを動かしている時、ActivePasteエラーが発生する場合が有ります。
　・これが発生するとＶＢＡが中断してしまい、処理が途中で終わってしまいます。

（項目２）
　・色々と調べて見ると、Excel VBA PasteSpecial で出るエラーの回避方法 - Qiitaが見つかりました。
　・上記によると、「Resumeで繰り返しトライすれば良い」との事でした。

（項目３）
　・ポイントは、On Error GoTo〜Resume構文を利用して、成功するまで繰り返す事です。
　　On Error GoTo myError
　　myError:
　　Resume

（項目４）
　・ＶＢＡコードは、以下の通りです。

　　Option Explicit

　　Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)

　　Sub main()

　　　　Dim msg As String
　　　　Dim count As Long

　　　　count = 0
　　　　On Error GoTo myError

　　　　'ここで処理

　　　　Exit Sub

　　myError:
　　　　count = count + 1
　　　　Sleep 100
　　　　DoEvents
　　　　If count = 10 Then
　　　　　　msg = "回数:" & count & vbCrLf
　　　　　　msg = "エラー番号：" & Err.Number & vbCrLf
　　　　　　msg = msg & "エラーの種類:" & Err.Description
　　　　　　MsgBox msg, vbExclamation
　　　　　　End
　　　　End If

　　　　Resume

　　End Sub

（項目５）
　・以上で、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡでActivePasteエラーの対処方法は終了です。