Excel VisualBasic Script

Sub nameAdd()
    Worksheets("Sheet1").Names.add name:="F", RefersToR1C1:="=Sheet1!R1C1:R6C6"
End Sub