Hi Henry,

Try replacing the following lines:

ActiveCell.Offset(0, 1).Select
' Give this a range name
ActiveWorkbook.Names.Add Name:="ProcessName", RefersToR1C1:= _
"='IA Control Documentation'!R9C2"

with these lines:

' also select the cell to the right
ActiveCell.Resize(1, 2).Select
' give this cell the range name
Selection.CreateNames Left:=True

Gary