Thanks. Here is a small update to the code. It works!

Also, I want to make these small improvements. Any ideas?
1. Only change the tasks I selected
2. Have pop-up box to either choose: Today or a Manually Entered Date.

Cheers!

Here is my updated code!

Sub UpdateTask_DueDate()
'Purpose: To update old tasks (with old Due Dates) to Today

On Error GoTo RecurseTasks_Error

Dim objOL As Outlook.Application
   Dim objNS As Outlook.NameSpace
   Dim objTasksFolder As Outlook.MAPIFolder
   Dim objItems As Outlook.Items
   Dim objTaskItem As Outlook.TaskItem
   
   Set objOL = New Outlook.Application
   Set objNS = objOL.GetNamespace("MAPI")
   Set objTasksFolder = objNS.GetDefaultFolder(olFolderTasks)
   Set objItems = objTasksFolder.Items.Restrict("[Due Date] < '" &
Format(Date, "ddddd") & "'")
   
   For Each objTaskItem In objItems
'        Debug.Print objTaskItem.Subject & " (Start: " &
objTaskItem.StartDate & "; End: " & objTaskItem.DueDate
       'or edit task:
       objTaskItem.DueDate = Date
'        objTaskItem.DueDate = #8/31/2007#
       objTaskItem.Save
   Next
   
   Set objOL = Nothing
   Set objNS = Nothing
   Set objTasksFolder = Nothing
   Set objTaskItem = Nothing
   Set objItems = Nothing

   On Error GoTo 0
   Exit Sub

RecurseTasks_Error:

   MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
RecurseTasks of Module basTasksMacros"
   Resume Next
End Sub