Sub クリップボードを空にクリアする()

    'クリップボードがまれにエラーの原因
    Application.CutCopyMode = False

End Sub