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

mystartdate = {08/12/2002}

LastDayOfMonth = GoMonth(date(year(MyStartDate), month(MyStartDate), 1),1) - 1
For CurrentDay = MyStartDate to LastDayOfMonth
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?