Last needed info (validation)

[Turquoise_dax]

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

[Bob Phillips]

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" <[email protected]>
wrote in message
news:[email protected]...
>
> 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
>