let newSheet = Worksheets.Add()
let i = 2
newSheet.Range("A1").Value2 = "Name"
newSheet.Range("B1").Value2 = "Link Type"

for(let j = 1; j <= Worksheets.Item("Sheet1").OLEObjects.Count; j++){
    newSheet.Cells(i, 1).Value2 = obj.Name

    if(Worksheets.Item("Sheet1").OLEObjectsOLEType == xlOLELink){
        newSheet.Cells(i, 2) = "Linked"
    }
    else{
        newSheet.Cells(i, 2) = "Embedded"
    }

    i++
}