It didnt work, i thought it did, but the real problem is the Analyst warnings for refreshing the cubes.
Sub SaveCube()
ActiveSheet.Shapes("Text 8974").Select
ActiveSheet.Shapes("Text 8974").Select
Selection.Characters.Text = "Salvar Información" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "_" & Chr(10) & "Unidades!analyst_view_2"
With Selection.Characters(Start:=1, Length:=31).Font
.Name = "Tahoma"
.FontStyle = "Negrita"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("F10").Select
Application.DisplayAlerts = False
Application.Run "Analyst_SaveButton"
End Sub