Dim cell As Range
For Each cell In Range("B:B")
If cell = "I" Then
With cell.Offset(0, 1)
On Error Resume Next
.Validation.Delete
On Error GoTo 0
.Validation.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Formula1:="=Comply"
End With
End If
Next cell

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Turquoise_dax"
wrote in message
news:Turquoise_dax.29tafc_1150993232.5451@excelfor um-nospam.com...

Here is the code with the missing link!
What I want to do is activate a validation list (Named "Comply") in
every cell to the right of a cell containing "I" in the B column...

Anyone knows what goes in the (...)?


Dim cell As Range
For Each cell In Range("B:B")
If cell = "I" Then cell.Offset(0, 1).(....)
Next


--
Turquoise_dax
------------------------------------------------------------------------
Turquoise_dax's Profile:
http://www.excelforum.com/member.php...o&userid=35185
View this thread: http://www.excelforum.com/showthread...hreadid=554638