>Venelina, (cute name by the way) to include the last...
>
>Thanks for the assistance.
>
>Here's what I have but the code blows up on the the line where you are issuing the FOR. Saying it's not a numeric expression:
>Am I doing something wrong?
>

>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?


Then you have to use numeric for your FOR counter - see my changes in the code.
Conserning my name I'm not sure what exactly does it means. In name gossaries I met that it comes from the name of Russian scientist Yurii Venelin