Hi,
You need to write and run a VBA macro to do this. Try running the attached
on a copy of your schedule:
Sub test()
Dim T As Task
For Each T In ActiveProject.Tasks
If Not T Is Nothing Then
T.Duration = Round(T.Duration / 60 / ActiveProject.HoursPerDay,
0) * 60 * ActiveProject.HoursPerDay
End If
Next T
End Sub
--
For VBA posts, please use the public.project.developer group.
For any version of Project use public.project
For any version of Project Server use public. project.server
Rod Gill
Project MVP
For Microsoft Project companion projects, best practices and Project VBA
development services
visit
www.projectlearning.com/
