Thanks for the help GTO.
I changed the code to as follows
[vba]Sub PullFromLibrary()
Dim FSO As Object
Dim rCell As Range
Dim rngFileNames As Range

'// Change paths and extension to suit. //
Const FOL_FROM As String = "Y:\Gould Southern Info\GA Kits\AutoCad Library"
Const FOL_TO As String = "Y:\Gould Southern Info\GA Kits\P.O. Assigned (Ordered) Kits\CADHolder"
Const EXT As String = ".dwg"

'// Change range to suit //
Set rngFileNames = ("A1:A50")

Set FSO = CreateObject("Scripting.FileSystemObject")

For Each rCell In rngFileNames
'// Ensure that source file exists and that its not //
'// already copied. //
If FSO.FileExists(FOL_FROM & rCell.Value & EXT) _
And Not FSO.FileExists(FOL_TO & rCell.Value & EXT) Then
FSO.CopyFile FOL_FROM & rCell.Value & EXT, FOL_TO, False
End If
Next
End Sub
[\vba] and get a "Type Mismatch" error at
Set rngFileNames = ("A1:A50").
Also what happens if there is not a corrosponding file in the folder being copied from? As I said not all of the items in the list will have a matching file in the folder.
Also what does GTO stand for? I used to own a 67 Goat and was wondering if it had anything to do with the car.