Sub ChangeCurrentFolder()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myolApp.ActiveExplorer.CurrentFolder = myNamespace.GetDefaultFolder(olFolderSentMail)
Application.ActiveExplorer.ClearSelection
Application.ActiveExplorer.Activate
MsgBox "First select email from Sent Items to save"
UserForm1.Show
'need to return to original folder after UserForm1
End Sub