Dim DesignerApp As Designer.Application
Dim DesignerUniv As Designer.Universe
Dim DesignerTbl As Designer.Table
Dim AliasName As String
'Assign name of new alias (my aliases are stored in excel, you could just as easily hard-code an alias)
AliasName = Worksheets("Sheet1").Range("A1").Value
Set DesignerApp = New Designer.Application
Set DesignerTbl = DesignerUniv.Tables(<existing universe table name or index value here>).CreateAlias(AliasName)
'Refresh and save
DesignerUniv.RefreshStructure
DesignerUniv.Save
DesignerUniv.Close
DesignerApp.Quit
Set AliasName = Nothing
Set DesignerApp = Nothing
Set DesignerUniv = Nothing
