Не могу вставить имя закладки

Sub Макрос1()
'
' Макрос1 Макрос
'
'
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
     .ButtonName = "Select"
     .AllowMultiSelect = False
     .Filters.Add "JPG file", "*.jpg;*.bmp;*.png;*.jpeg", 1
     .Title = "Choose Transactions file to import"
     .InitialView = msoFileDialogViewDetails
     .Show
End With
    Selection.InlineShapes.AddPicture FileName:=fd.SelectedItems(1), _
        LinkToFile:=False, SaveWithDocument:=True
    
     lalala = InputBox("enter")
    
    With ActiveDocument.Bookmarks
    Selection.TypeParagraph
    Application.Keyboard (1049)
    Selection.TypeText Text:="picture  "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "SEQ 12 \* Arabic", PreserveFormatting:=True
        Selection.TypeText Text:="  "
    Selection.TypeText Text:=lalala
    .Add Range:=Selection.Range, Name:="Имя закладки" 
      .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub