Finding the weekend date of a particular date

Hello All,

Could you please help me in find the weekend date of each dates.

Im generating a report , for which i need to find the weekend date of the corresponding date.

following is the code that im using to generate the dates. Please help me in generating the corresponding weekend date as well.

also attached is the output file im lookg for.


Thanks in advance

Dim startdate As Date, enddate As Date, i As Integer
startdate = ReportDate1.Value
enddate = ReportDate2.Value
i = 2
    While startdate <= enddate
    
    Sheets("sheet1").Range("E" & i) = startdate
    startdate = startdate + 1
    
    Sheets("Sheet1").Range("A" & i) = TextBox1.Text
    Sheets("Sheet1").Range("B" & i) = TextBox2.Text
    Sheets("Sheet1").Range("C" & i) = TextBox6.Text
    Sheets("Sheet1").Range("D" & i) = ComboBox1.Text
    i = i + 1
    Wend

Which weekend?? Next? Previous? Closest??

Regardless, this should give you a pointer: http://www.techrepublic.com/blog/mic...next-saturday/

Thankyou Kaper/all..

but in the below scenario where 6/8/2014 is a sunday, it should display the same date as 6/8/2014 in the weekend column and not 6/15/2014.
is that possible?? really appreciate the response
Startdate weekend date
6/6/2014 6/8/2014
6/7/2014 6/8/2014
6/8/2014 6/15/2014
6/9/2014 6/15/2014

Thankyou All...