Excelmakro för att kopiera ett område till "clipboard"

Halloj.
Har lite bekymmer med ett excelmakro som skall kopiera ut en större del av ett blad till "clipboard".

Kör jag detta macro så funkar det bra :

Sub CopyToClip()
    Dim objData As New MSForms.DataObject
    Dim strText
    strText = Worksheets("Blad1").Range("B2").Text
    objData.SetText strText
    objData.PutInClipboard
End Sub

Det stom står i Cell B2 hamnar i "clipboard" och jag kan kopiera in det var som.
Men ändrar jag Range("B2") till Range("B2: D3") så får jag bara error "Körfel nr '94'.: Ogiltigt användning av Null."

Jag förstår inte vad jag gör fel. Har testat ned Range("B2: D3"), Range("B2":"D3"), Range("B2;D3"),Range("B2,D3"), Range(B2,D3) osv men får det inte att funka.

Är det något som vet/ser vad jag gör för fel? Det är alltid samma cellområde som skall kopieras.

//milkacid

EDIT : Fick in lite smilies i koden.

Worksheets("Blad1").Range("B2:D3").Copy

Har testat detta men då får jag bara "Sant" i clipboard :/

Har testat skriva om scriptet lite den klarar av att markera området och så, men den verkar inte vilja förstå att det är vanlig text i cellerna som jag vill kopiera.

Tack för era svar.
Jag är inte helt bra på programmering så tar inte åt mig :).

Att bara köra enligt Elgots exempel uppnår inte riktigt det resultat jag önskar, det är samma effekt som att markera och kopiera celler i Excel. Så fort man trycker esc eller gör något annat så försvinner informationen från clipboard.

Att använda MSForms.DataObject är ett sätt att få in information i "riktiga" clipboard så att jag kan stänga excel och fortfarande ha kvar datan i clipboard. Men onekligen så behärskar jag inte detta tillräckligt bra för att få någon ordning på det.

Mvh
milkacid

Nope.

Har hittat lösningen.

Sub CopyToClipboard()
    Dim doClip As DataObject
    Dim sText As String
    Dim rCell As Range, rRow As Range
    Dim rSrc As Range
    
    Set doClip = New DataObject
    Set rSrc = Blad1.Range("B24:B42")

   For Each rRow In rSrc.Rows
        For Each rCell In rRow.Cells
            sText = sText & rCell.Text & vbNewLine
        Next rCell
        Next rRow
   doClip.SetText sText
   doClip.PutInClipboard
   Set doClip = Nothing
End Sub

Funkar helfint och gör precis det jag önskar.