specify that the Names collection belongs to a worksheet:
Sub nameAdd() Worksheets("Sheet1").Names.add name:="F", RefersToR1C1:="=Sheet1!R1C1:R6C6" End Sub