Sub Open_PPT()
Dim PPT As Object
Set PPT = CreateObject("PowerPoint.Application")
With PPT.Presentations
If .CanCheckOut("link") = True then
.CheckOut Filename:="link"
.Open Filename:="link"
PPT.Visible = True
Else
PPT.Quit
Msgbox "Can't checkout presentation at this moment!"
End if
End With
End Sub