Getting closer

Sub Addnames1()
Dim irow As Integer

irow = 0
With shtTerm.Range("bx25")
Do
ActiveWorkbook.Names.Add _
Name:=.Offset(irow, 0), _
RefersTo:="=" & .Offset(irow, 1).Value
irow = irow + 1
Loop Until .Offset(irow, 0) = ""
End With
End Sub

Using the same in the first column it is grabbing the wrong range (columns
CT-Dk)
What I have in the second column
Termrates!V23:V61
Termrates!W23:W61
Termrates!X23:X61
Termrates!Y23:Y61
Termrates!Z23:Z61
Termrates!AA23:AA61
Termrates!AB23:AB61
Termrates!AC23:AC61
Termrates!AD23:AD61
Termrates!AE23:AE61
Termrates!AF23:AF61
Termrates!AG23:AG61
Termrates!AH23:AH61
Termrates!AI23:AI61
Termrates!AJ23:AJ61
Termrates!AK23:AK61
Termrates!AL23:AL61
Termrates!AM23:AM61


--
Wag more, bark less


"Brad" wrote:

Does anyone know how to fix the code below? It's not setting the ranges
correctly

Sub Addnames1()
Dim irow As Integer

irow = 0
With shtTerm.Range("bx25")
Do
ActiveWorkbook.Names.Add _
Name:=.Offset(irow, 0), _
RefersTo:= _
.Offset(irow, 1).Value
irow = irow + 1
Loop Until .Offset(irow, 0) = ""
End With
End Sub




Starting in bx25
TR30MNE V23:V61
TR30MPE W23:W61
TR30MSE X23:X61
TR30FNE Y23:Y61
TR30FPE Z23:Z61
TR30FSE AA23:AA61
TR30UNE AB23:AB61
TR30UPE AC23:AC61
TR30USE AD23:AD61
TR30MNE AE23:AE61
TR30MPE AF23:AF61
TR30MSE AG23:AG61
TR30FNE AH23:AH61
TR30FPE AI23:AI61
TR30FSE AJ23:AJ61
TR30UNE AK23:AK61
TR30UPE AL23:AL61
TR30USE AM23:AM61