Excel VisualBasic Script

Sub AddName4()
    Selection.Name = "MyRange4"
End Sub