in case anyone doesn't reply, i figured it out, and you
want to see how i did it:

Sub NameOptionRanges()
Dim CellF As Range
For Each CellF In Range("F5:F1000")
If CellF < "" Then
Range(CellF).Name = CellF.Offset(0, 1).Value
End If
Next
End Sub


-----Original Message-----
i have a database of records starting with A5. A5
contains the title of the first record. the range of
data for this record is C5:D9. the next records' title
is in A10. this record has 5 lines, going from C10:D14.
i have a formula that puts the range for the first
record
in F5. so F5 = "C5:D9". and the desired name for this
record is in G5. so G5 = "DESIRED RANGE NAME" obviously
each range has a different name. i have this:

Sub NameOptionRanges()

Dim CellF As Range
Dim CellG As Range

For Each CellF In Range("F5:F1000")

If CellF < "" Then
For Each CellG In Range("G5:G1000")
If CellG < "" Then
Range(CellF).Select
Range(CellF).Name = CellG.Value
End If
Next
End If

Next

End Sub

but i can't quite figure out how to make the loops work
right. i want to name the range which is in column F,
with the name located exactly one cell to the right of
it
in column G. TIA
.