クリップボードコピーした内容を別のシートから検索するマクロ

    Dim str As String
    Dim dobj As New dataobject
    With dobj
        .GetFromClipboard
        str = .GetText
    End With
    
    Windows("F_Data.xls").Activate
    Selection.End(xlUp).Select
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Find(What:=str, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, MatchByte:=False, SearchFormat:=False).Activate

    Set dobj = Nothing

とりあえず、サンプル程度。
しかし、クリップボードの内容を取ってくるのに、"Microsoft Forms 2.0 Object library"が必要なのがげせない。