选择单元格并按Enter键（运行时错误1004）

Question

我想选择一个单元格，然后按Enter键。试图编写代码，但错误在一行（book1.Worksheets（＆＃34; 6＆＃34;）。范​​围（＆＃34; Q100＆＃34;）。选择）跳出来。

    Sub example()
    Dim book1 As Workbook

    Set book1 = Workbooks.Open("E:\Super M\Ïðîåêò ñòàâêè\Ïîèñê ðåøåíèÿ\Óñîâ 
    6\ñåçîí äëÿ ïðîãè\Àíãëèÿ\1-îå ìåñòî\6.xlsm")

    book1.Worksheets("6").Range("Q100").Select
    SendKeys "{ENTER}"

    End Sub