ox=CreateObject('excel.application') With ox .Workbooks.Add .Visible = .T. With .ActiveWorkBook.ActiveSheet .Application.GoTo(.Range('F200'),.T.) && Make F200 upper left cell * Limit scrollable area * .ScrollArea = 'F200:K300' && User cannot scroll and select out F200:K300 endwith endwithCetin