Dim colStores 'As Outlook.Stores Dim oStore 'As Outlook.Store Dim oRoot 'As Outlook.folder Dim oldName Dim newName 'As String 'oldName is case sensitive oldName = "alias@domain.com" newName = "Diane Poremsky" 'On Error Resume Next Set objOutlook = CreateObject("Outlook.Application") Set colStores = objOutlook.Session.Stores For Each oStore In colStores Set oRoot = oStore.GetRootFolder If oRoot = oldName Then oRoot.Name = newName End If Next