Paste this into ThisWorkbook module
Private Sub Workbook_Open()
Sheets(1).Activate
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollColumn = 1
End Sub


--
mdmackillop
------------------------------------------------------------------------
mdmackillop's Profile: http://www.thecodecage.com/forumz/member.php?userid=113
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=69237