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