Spratt_Cary
09-12-2007, 11:51 PM
Is there a better way to code the following?
Private Sub CellName()
ActiveWorkbook.Names.Add name:="Form", RefersToR1C1:="=R3C1"
ActiveWorkbook.Names.Add name:="Site", RefersToR1C1:="=R3C2"
ActiveWorkbook.Names.Add name:="Description", RefersToR1C1:="=R3C3"
ActiveWorkbook.Names.Add name:="DBCDesc", RefersToR1C1:="=R3C4"
ActiveWorkbook.Names.Add name:="Tdesc", RefersToR1C1:="=R3C5"
ActiveWorkbook.Names.Add name:="Required", RefersToR1C1:="=R3C6"
ActiveWorkbook.Names.Add name:="Title", RefersToR1C1:="=R3C7"
ActiveWorkbook.Names.Add name:="Caller", RefersToR1C1:="=R3C8"
ActiveWorkbook.Names.Add name:="Date", RefersToR1C1:="=R3C9"
ActiveWorkbook.Names.Add name:="Personnel", RefersToR1C1:="=R3C10"
ActiveWorkbook.Names.Add name:="Study", RefersToR1C1:="=R1C1"
ActiveWorkbook.Names.Add name:="Sname", RefersToR1C1:="=R1C2"
End Sub
Private Sub CellName()
ActiveWorkbook.Names.Add name:="Form", RefersToR1C1:="=R3C1"
ActiveWorkbook.Names.Add name:="Site", RefersToR1C1:="=R3C2"
ActiveWorkbook.Names.Add name:="Description", RefersToR1C1:="=R3C3"
ActiveWorkbook.Names.Add name:="DBCDesc", RefersToR1C1:="=R3C4"
ActiveWorkbook.Names.Add name:="Tdesc", RefersToR1C1:="=R3C5"
ActiveWorkbook.Names.Add name:="Required", RefersToR1C1:="=R3C6"
ActiveWorkbook.Names.Add name:="Title", RefersToR1C1:="=R3C7"
ActiveWorkbook.Names.Add name:="Caller", RefersToR1C1:="=R3C8"
ActiveWorkbook.Names.Add name:="Date", RefersToR1C1:="=R3C9"
ActiveWorkbook.Names.Add name:="Personnel", RefersToR1C1:="=R3C10"
ActiveWorkbook.Names.Add name:="Study", RefersToR1C1:="=R1C1"
ActiveWorkbook.Names.Add name:="Sname", RefersToR1C1:="=R1C2"
End Sub