Ltrim macro working, yet throwing Error 91 (Object variable not set)

[adamhammock]

Here is the macro:

Sub lefttrim()

Dim All_Tasks As Tasks 'All the tasks in the Project

Dim Single_Task As Task 'A single task in the Project

Set All_Tasks = ActiveProject.Tasks

For Each Single_Task In All_Tasks

Single_Task.Name = Ltrim(Single_Task.Name) <(This line is throwing the error)

Next

End Sub

Does anyone have an idea as to why this would still perform the trim function, yet have an error? Thanks in advance.