export excel cell til word textbox

ok, lad mig omformulere:
Jeg har et exceldokument hvor jeg har nogle celler med inhold. Når jeg trykker på en bestemt knap, skal den tage indholdet fra min celle A1 og åbne et specifikt worddokument, og smide indholdet ind i et tektfelt i dokumentet...

Giver det mere mening?

Sub Makro2()
Dim y As Word.Application
Set y = CreateObject("Word.Application")

  With y
  .Visible = True
    Sheets("Ark1").Visible = True
    .Documents.Open Filename:="C:\Documents and Settings\Navn\Skrivebord\Ny Microsoft Word-dokument.doc"
    Worksheets("Ark1").Range("A1:A4").Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Test2"
    .Selection.Paste
    Application.CutCopyMode = False
    Sheets("Ark1").Visible = True
   
    End With
End Sub

Koden kræver at du har Microsoft Word Object Library xx.yy installeret: VBA-editor -> Tools -> References.
Derudover skal du have et bookmark i Word dokumentet der hedder Test2.

Koden er fundet her http://www.eksperten.dk/spm/689571 og virker.

Det virker jo hel perfekt tak! lægger du et svar?

Det kommer her.

Tak for point :-)