>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 >endwith >Cetin