Hi chipnputt,
That's not how you're supposed to do it! You don't need to select anything, and you don't need to copy & paste. Try:
Code:
Sub UpdateBookMark()
Dim BmkNm As String, NewTxt As String, BmkRng As Object
BmkNm = "MondayTeams"
NewTxt = Worksheets("Monday").Range("H1:L2").Value
With ActiveDocument
If .Bookmarks.Exists(BmkNm) Then
Set BmkRng = .Bookmarks(BmkNm).Range
BmkRng.Text = NewTxt
.Bookmarks.Add BmkNm, BmkRng
Else
MsgBox "Bookmark: " & BmkNm & " not found."
End If
End With
Set BmkRng = Nothing
End Sub
PS: When posting material relating to a discussion already under way, please use the same thread.