Reset scroll position, add to workbook open sub ActiveWindow.ScrollColumn = 1ActiveWindow.ScrollRow = 1