PDA

View Full Version : Solved: Copying Custom Column/Fields to SubProjects



SherryO
10-07-2008, 08:34 AM
I have three columns with customized lists for input and need to copy them to about 600 files. I wanted to know how to "walk the files" from one main file and copy the columns into each subproject file. Thanks

SherryO
10-07-2008, 10:04 AM
got it. Thanks anyway.
Public Sub AddCustomInfo()
Dim proj As Project
Dim Path As String
Dim SP As Subproject
Application.DisplayAlerts = False
Set proj = ActiveProject
For Each SP In proj.Subprojects
Path = SP.Path
FileOpen Name:=Path, ReadOnly:=False
Call WhateverMacro(ActiveProject) 'adjust this to be whatever you want added
FileClose pjSave
Next
End Sub