Dim s1 as String, lng2 as Long
S1 = "EBI_"
Lng2 = 129

for i = 1 to 2
Range("H1").Offset(i-1,0).Name = S1 & (Lng2 + i)
Next

--
Rgards,
Tom Ogilvy

"Paul" wrote in message
...
Is there any way to dynamically name cells in order to create unique
indifiable cells. I specifically want to name cells based on joining 2
idenifiers found in a worksheet (i.e. I want cell H1 to be named EBI_130,
cell H2 to be name EBI_131, etc.)

I haven't figured a way around the (... names.add name:= ...)
configuration
that is static.