Validation list

[Pjam]

does anyone know how to make a validation list using vba.

i want to create a list in worksheet 2 but the data is on worksheet 1.

using vba.

data range worksheets("sheet1").range("a3:a32")

list would be in worksheets("sheet2").cells(2,2)

thanks for any help!

 

[iggydarsa]

give this a try

Sub test1()
Dim valStr As String: valStr = ""

For i = 3 To 31
    valStr = valStr & Sheets("Sheet1").Range("A" & i).Value & ", "
Next i
valStr = valStr & Sheets("Sheet1").Range("A32").Value


With Sheets("Sheet2").Range("B2").Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=valStr
End With
End Sub