Sub M_snb() 
    With getobject("C:\Users\DJ-PC\PartDescriptions.xlsm") 
        sn = .Sheets(1).Cells(1).CurrentRegion 
        .close 0 
    End With 
     
    With getObject("C:\Users\DJ-PC\Desktop\DJPartDescriptions.PPTX") 
        For j = 1 To UBound(sn) 
            With .Slides(j).Shapes.AddTextbox(1, 120, 120, 270, 100).TextFrame.TextRange 
                .Text = sn(j, 1) & vbLf & sn(j, 2) 
                .Font.Size = 38 
            End With 
        Next 
    End With 
End Sub