Sub example()
Dim book1 As Workbook
 
Set book1 = Workbooks.Open("E:\Super M\Àíãëèÿ\1-îå ìåñòî\6.xlsm")
 
book1.Worksheets("6").Range("Q100").Select
SendKeys "{ENTER}"
        
End Sub