Dim dobj As MSForms.DataObject Set dobj = New MSForms.DataObject dobj.SetText CStr(newNo) dobj.PutInClipboard MsgBox "クリップボードにコピーしました。", _ vbInformation, "コピー完了" ChatGPTが上記のコードを書いてくれたんですが、エラーが出る。