Option Explicit
Dim swApp As Object
Dim Part As Object

Sub massp()
    Dim vet As Variant
    Dim Model As String
    Dim Config As String
    Dim count As Double
    Dim boolstatus As Boolean
    
    Set swApp = CreateObject("SldWorks.Application")
    swApp.UserControl = True
    swApp.Visible = True
    For count = 1 To 10
        Model = LCase(Sheet1.Cells(count, 1))
        Dim Errors As Long, Warnings As Long
        Set Part = swApp.OpenDoc6(Model, 1, 1, "", Errors, Warnings)
        Config = swApp.GetActiveConfigurationName(Model)
        vet = swApp.GetMassProperties2(Model, Config, 1)
        If Not IsEmpty(vet) Then
            Dim i As Long
            For i = 0 To UBound(vet)
                Debug.Print vet(i)
                Sheet1.Cells(count, i + 2) = vet(i)
            Next
        End If
        swApp.CloseDoc (Model)
        Set Part = Nothing
    Next
End Sub