Equal Sign Abbreviation

An alternative to using the Range method is to just include an equal sign.
Workbook Level:

Names.Add Name:="MyNamedRange2", _ 
          RefersTo:=Range("A1") 

Names.Add Name:="MyNamedRange2", _ 
          RefersTo:="=A1" 

Worksheet Level:

Names.Add Name:="MyNamedRange3", _ 
          RefersTo:=Range("'" & ActiveSheet.Name & '!" & saddress) 

Names.Add Name:="MyNamedRange3", _ 
          RefersTo:="=" & "'" & ActiveSheet.Name & "'!" & saddress