Data Validation Code

[Pestomania]

Hello,

I currently have the following code:

Dim ws as worksheet
Dim range1 as range, RNG as range
Set was =ActiveWorkbook.Worksheets("master")

Set range1 =ws.range ("B10:B13")
Set RNG =ws.range("C7")

With RNG.validation
.delete
.add type:=xlvalidatelist, alertstyle:=xlvalidatelist, _
Formula1:="='" & ws.name & "'!" & Range1.address
End with

It works great, but I would like the validation to have a "required" of what is in the left. I don't want anyone to be able to put other information in.

Thank you
]

 

[mse330]

You can replace this

xlvalidatelist

with this

xlValidAlertStop

Also, I think there's a typo here

Set was =ActiveWorkbook.Worksheets("master")

' Should be ws & not was

Set ws =ActiveWorkbook.Worksheets("master")

 

[Pestomania]

You can replace this

xlvalidatelist

with this

xlValidAlertStop

Also, I think there's a typo here

Set was =ActiveWorkbook.Worksheets("master")

' Should be ws & not was

Set ws =ActiveWorkbook.Worksheets("master")

Works perfect!!

And yes that was a mistake on my behalf. Thank you

 

[mse330]

Glad I could help & thank you for reporting back