Public Sub Shamsi_date() Dim tskProjTask As Task 'Reference to a task object. Dim tsksProjTasks As Tasks Set tsksProjTasks = ActiveProject.Tasks For Each tskProjTask In tsksProjTasks If Not (tskProjTask Is Nothing) Then 'Check to see if task exists and that is not a external task. If Not tskProjTask.ExternalTask Then tskProjTask.Text1 = FDate(Format(tskProjTask.Start, "yyyy/mm/dd"), True) tskProjTask.Text2 = FDate(Format(tskProjTask.Finish, "yyyy/mm/dd"), True) End If End If Next tskProjTask End Sub