Why not use the easy method you were previously given:

Range("A" & UniqueDataStart & ":" & "A" & DataLast).Select

Selection.Name = "S1"

--
Regards,
Tom Ogilvy


"Nigel" wrote in message
oups.com...
why isnt this working?

Range("A" & UniqueDataStart & ":" & "A" & DataLast).Select
ActiveWorkbook.Names.Add Name:="S1", RefersTo:=Selection

i just want to named that range S1