Sub PatientAdd() MsgBox "Patient Added Successfully" ActivePresentation.SlideShowWindow.View.Previous End Sub