Hi,
I am using the following code which was very kindly provided from this site.
I would like to amend it to exclude weekends (Saturday & Sunday) as I have now removed these dates from my sheet
ThanksPrivate Sub Workbook_Open() Dim cNum As Long cNum = Application.Match(CDbl(Date) - 1, Sheet2.Range("8:8"), 0) 'Change Sheet reference to your actual sheet. Sheet2.Select ActiveWindow.ScrollColumn = cNum End Sub
Kevin
Bookmarks