Excel VisualBasic Script

Sub nameName()
    range("A1:F6").name = "Fruits"
End Sub