adamhammock
09-23-2014, 09:19 AM
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.
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.