Excel2000 VBA クリップボードの内容をテキストまたは値として貼り付ける

Excel2000 VBA クリップボードの内容をテキストまたは値として貼り付ける

Sub txt_past()

' クリップボードの内容をテキスト、値として貼り付ける
' webページのコピーではテキストとして、excel間では値として貼り付ける
'ショートカットキーに設定する 例ctrl+B
'実験

 On Error GoTo syori
    ActiveSheet.PasteSpecial Format:="テキスト", Link:=False, DisplayAsIcon:= False
    Exit Sub
syori:
   If Err.Number = 1004 Then                                 'エラー番号1004の処理
 　 MsgBox "COPY内容がテキストではありません！" & vbCrLf + vbCrLf & Err.Number & vbCrLf & Err.Description
    Exit Sub
    End If　　　
    Selection.PasteSpecial Paste:=xlPasteValues　　　'値として貼り付け
End Sub

再生できない場合、ダウンロードは🎥こちら