Insert a target cell value from excel to a word document bookmark

[carlrubber]

Hi all,

I am new in vba and now i would insert a target cell value in excel to a word document bookmark by following code,
the error is come from ws.Range(Target.Row, Target.Column).Value

Sub InsertAfterBookmark()


Dim objWord As Object

Dim ws As Worksheet

Dim I As Long

Set ws = ThisWorkbook.ActiveSheet

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

objWord.Documents.Open ("C:\Desktop\New folder\_20220808.doc")

With objWord.ActiveDocument

.Bookmarks("MR").Range.InsertAfter ws.Range(Target.Row, Target.Column).Value

End With

Set objWord = Nothing

End Sub

anyone could help please.
Thank you

 

[NdNoviceHlp]

There is no "Target" value. It's not a worksheet change sub. U will also need to save and close the document then Quit Word before setting the "objword" to nothing. HTH, Dave