>local MyStartDate, CurrentGridColumnCount, DaysCounter, AllDaysCount > >mystartdate = {08/12/2002} > >LastDayOfMonth = GoMonth(date(year(MyStartDate), month(MyStartDate), 1),1) - 1 AllDaysCount = LastDayOfMonth - MyStartDate For DaysCounter = 0 to AllDaysCount *instead of For CurrentDay = MyStartDate to LastDayOfMonth CurrentDay = MyStartDate + 1 > If !InList(Dow(CurrentDay), 6, 7) > CurrentGridColumnCount = CurrentGridColumnCount + 1 > ThisForm.Pageframe1.Page1.Grid1.AddColumn(CurrentGridColumnCount) > ThisForm.Pageframe1.Page1.Grid1.Columns(CurrentGridColumnCount).Header1.Caption = Transform(CurrentDay) > * place here all your setting > endif >EndFor >>By the way, can I ask what your name means?