I have the following code that works fine inside of a workbook:
Sub Make_a_file()
Dim SaveFileName As String
Dim Path As String
For i = 0 To 500
Path = Worksheets("Item List").Cells(1, 1)
SaveFileName = Worksheets("Item List").Cells(2 + i, 1)
If SaveFileName = blank Then End
ChDir Path
ActiveWorkbook.SaveAs FileName:=SaveFileName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Next
End Sub
But whatI can't figure out how to do is to have the worksheet Item list in its own workbook that several other workbooks can reference.
What this macro does is create a new file for each item bid item in a contract. works very well but inturn makes multiple copies of its self. I would like the list to be idependant so I can edit it and use it for a refference to other workbooks. Hope I am being clear.
Any suggestions would be appreciated. I am having allot of problems with defining working variables, a hurdle I keep falling over.
Sub Make_a_file()
Dim SaveFileName As String
Dim Path As String
For i = 0 To 500
Path = Worksheets("Item List").Cells(1, 1)
SaveFileName = Worksheets("Item List").Cells(2 + i, 1)
If SaveFileName = blank Then End
ChDir Path
ActiveWorkbook.SaveAs FileName:=SaveFileName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Next
End Sub
But whatI can't figure out how to do is to have the worksheet Item list in its own workbook that several other workbooks can reference.
What this macro does is create a new file for each item bid item in a contract. works very well but inturn makes multiple copies of its self. I would like the list to be idependant so I can edit it and use it for a refference to other workbooks. Hope I am being clear.
Any suggestions would be appreciated. I am having allot of problems with defining working variables, a hurdle I keep falling over.