Cel valideren met Gedefinieerd bereik uit celwaarde

[wiki]

Met behulp van VBA maak ik een gedefinieerd naam uit een bereik

ActiveWorkbook.Names.Add ActiveCell.Offset(0, -17).Value, RefersToR1C1:= _
    Range(Selection, Selection.End(xlToRight))

Nu wil ik een cel naast de activecell valideren met dit bereik door te verwijzen naar de naam in cell

ActiveCell.Offset(0, -17).Value

Dit lukt met een directe verwijzing naar de naam "VR1" maar ik wil deze waarde ophalen uit een cel

ActiveCell.Offset(0, -7).Validation.Delete
    ActiveCell.Offset(0, -7).Validation.Add Type:=xlValidateList, Formula1:="=VR1"

Het lukt me niet om dit stukje code aangepast en werkend te krijgen en heb dit op vele manieren geprobeerd.

Formula1:="=activecell.offset(0,-17).value"

wie kan helpen?

gr wim

 

[wiki]

Ook vandaag verder geprobeerd maar nog geen succes

ActiveCell.Offset(0, -7).Validation.Add Formula1:="=[activecell.offset(0,-17).value]"

gr wim

 

[Ad Becude]

ActiveCell.Offset(0, -7).Validation.Delete
    ActiveCell.Offset(0, -7).Validation.Add Type:=xlValidateList, Formula1:="=VR1"

Kan dit niet met:

ActiveCell.Offset(0, -7).Validation.Delete
    ActiveCell.Offset(0, -7).Validation.Add Type:=xlValidateList, Formula1:="=indirect(C1)"

Met in C1 de naam van de selectie.

Het is maar een suggestie, ben geen VBA man.

 

[Warme bakkertje]

Sub tst()
With ActiveCell.Offset(0, -7).Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:="=" & ActiveCell.Offset(, -17).Value
End With
End Sub

 

[wiki]

Bedankt Rudi

precies wat ik zocht en scheelt me veel werk en weer wat geleerd

gr wim