Excel VisualBasic Script

Sub nameName2()
    Names("Fruits").name = "Produce"
End Sub