Calculating weeks from two dates

[kmoore]

I'm trying to calculate the number of weeks between two dates. I would like to count part of a week as a full week so I need to round up.

[CODE]BegDate = DateValue(Range("B6").Value)
Enddate = DateValue(Range("B7").Value)
weeks = RoundUp(((Enddate - BegDate) / 7), 0)
Range("G6").Select
ActiveCell.Formula = weeksCODE]

Is there a "RoundUp" function in VBA I can use? How should I change my code.

[kmoore]

I also need to put each week (represented by Week1, Week2, etc.) in a column starting say in cell B:9.

Thanks for the help.