Sub Main() 'declare variable for inventory master excel file excel_file = "C:\Users\martinm1\Desktop\TESTCUSTOMPROPERTIES.xlsx" 'open excel file Dim oExcel = CreateObject("Excel.Application") Dim oWorkbook = oExcel.Workbooks.Open(excel_file) oExcel.Application.Visible = True 'Create folder variable and set it to the folder with files in it Dim Folder As New IO.DirectoryInfo("C:\Users\martinm1\Documents\Vault\Designs\NA Industrial\Tooling\Mech\8000 - Comercial Parts") 'Create file list variable that will contain list of files in Folder 'This will be in string format Dim FileList As New List(Of String) 'Loop through each file found in Folder and add to FileList For Each File As IO.FileInfo In Folder.GetFiles("*.ipt",IO.SearchOption.AllDirectories) If File.FullName.Contains("OldVersions") = False Then FileList.Add(File.FullName) End If Next 'display count of files found in folder 'MsgBox(FileList.Count & " Files were found!",,"Files Found") 'create variable for document Dim oDoc As Document 'for loop that goes through file on the file list variable For Each DocName As String In FileList oDoc = ThisApplication.Documents.Open(DocName, True) 'for loop to find the first empty row in the inventory master excel file Try ' Obtain the PropertySets collection object Dim oPropsets As PropertySets = oDoc.PropertySets Dim description As String = oPropsets.Item("Inventor User Defined Properties").Item("DESCRIPTION").Value Dim manufacturer As String = oPropsets.Item("Inventor User Defined Properties").Item("MANUFACTURER").Value Dim manufPartNo As String = oPropsets.Item("Inventor User Defined Properties").Item("MANUFACTURERS_PART_NUMBER").Value Dim i As Integer For i = 2 To 20000 If (oWorkbook.Sheets("Sheet1").Cells(i, 1).Value = "") Then oWorkbook.Sheets("Sheet1").Cells(i, 1).Value = description oWorkbook.Sheets("Sheet1").Cells(i, 2).Value = manufacturer oWorkbook.Sheets("Sheet1").Cells(i, 3).Value = manufPartNo Exit For Else i = + 1 End If Next Catch End Try oDoc.Close Next 'end file list oWorkbook.Save oWorkbook.Close End Sub