Hallo mein Code:

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
'Documentname anpassen!!!!
 TextBox2.Text = Documents("hallo.docx").Bookmarks("Tm1").Range.Text
 Else
 
 If CheckBox1.Value = False Then
 TextBox2.Text = "Bitte Ausfüllen"
 
 End If
 
End If


TextBox1.Locked = CheckBox1 = True
CheckBox2.Locked = CheckBox1 = True

        
End Sub

Jetzt sagt er mir bei 

TextBox2.Text = Documents("hallo.docx").Bookmarks("Tm1").Range.Text

Dass es ein ungültiger Dateiname wäre aber Schreibweise etc stimmt