クリップボードコピーされているかチェックする

Sub コピーされているかクリップボードをチェックする()

    ClipBoard = Application.ClipboardFormats
    
    If ClipBoard(1) = -1 Then
        MsgBox "コピーされていません"
        End '処理を終了
    Else
        '何もしない
    End If
    
    'コピーされているので処理を続ける場合の継続処理
    
End Sub