Thanks, Greg, that did the trick
This is the finshed code:
If Not TextBox1 = vbNullString Then If ThisDocument.Bookmarks.Exists("BM_Fastighetsbeteckning") = True Then Dim BM_Fastighetsbeteckning As Range Set BM_Fastighetsbeteckning = ThisDocument.Bookmarks("BM_Fastighetsbeteckning").Range BM_Fastighetsbeteckning.Text = Me.TextBox1.Value ThisDocument.Bookmarks.Add "BM_Fastighetsbeteckning", BM_Fastighetsbeteckning End If End If