amend code to exclude weekends

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

    Private 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

Thanks
Kevin