Can this code be paired-down for more efficiency?

week = InputBox("Enter the NASCAR Week", NASCAR_Week)
ActiveWorkbook.Names.Add name:=Range("A2").Value & week,
RefersToR1C1:="=" & week & "!R2C2"
ActiveWorkbook.Names.Add name:=Range("D2").Value & week,
RefersToR1C1:="=" & week & "!R2C5"
ActiveWorkbook.Names.Add name:=Range("G2").Value & week,
RefersToR1C1:="=" & week & "!R2C8"
ActiveWorkbook.Names.Add name:=Range("J2").Value & week,
RefersToR1C1:="=" & week & "!R2C11"

Thanks for checking this out.
John

For efficiency, probably not, but you can loop:

week = InputBox("Enter the NASCAR Week", NASCAR_Week)
for i = 0 to 9 step 3
ActiveWorkbook.Names.Add name:=Range("A2") _
.Offset(0,i).Value & week,RefersToR1C1:= _
"=" & week & "!R2C" & i + 2
Next


--
Regards,
Tom Ogilvy



"Johnny" wrote in message
oups.com...
Can this code be paired-down for more efficiency?

week = InputBox("Enter the NASCAR Week", NASCAR_Week)
ActiveWorkbook.Names.Add name:=Range("A2").Value & week,
RefersToR1C1:="=" & week & "!R2C2"
ActiveWorkbook.Names.Add name:=Range("D2").Value & week,
RefersToR1C1:="=" & week & "!R2C5"
ActiveWorkbook.Names.Add name:=Range("G2").Value & week,
RefersToR1C1:="=" & week & "!R2C8"
ActiveWorkbook.Names.Add name:=Range("J2").Value & week,
RefersToR1C1:="=" & week & "!R2C11"

Thanks for checking this out.
John

Or just make it easier to read

week = InputBox("Enter the NASCAR Week", NASCAR_Week)
With ActiveWorkbook.Names
.Add name:=Range("A2").Value & week, _
RefersToR1C1:="=" & week & "!R2C2"
.Add name:=Range("D2").Value & week, _
RefersToR1C1:="=" & week & "!R2C5"
.Add name:=Range("G2").Value & week, _
RefersToR1C1:="=" & week & "!R2C8"
.Add name:=Range("J2").Value & week, _
RefersToR1C1:="=" & week & "!R2C11"
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Johnny" wrote in message
oups.com...
Can this code be paired-down for more efficiency?

week = InputBox("Enter the NASCAR Week", NASCAR_Week)
ActiveWorkbook.Names.Add name:=Range("A2").Value & week,
RefersToR1C1:="=" & week & "!R2C2"
ActiveWorkbook.Names.Add name:=Range("D2").Value & week,
RefersToR1C1:="=" & week & "!R2C5"
ActiveWorkbook.Names.Add name:=Range("G2").Value & week,
RefersToR1C1:="=" & week & "!R2C8"
ActiveWorkbook.Names.Add name:=Range("J2").Value & week,
RefersToR1C1:="=" & week & "!R2C11"

Thanks for checking this out.
John