Ver originalPrivate Sub cmd_Click() Shell "C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE C:\Me\ARCHIVO.PPT", vbNormalFocusEnd Sub