add drop down box's to multipul cells in the same sheet

[danny25]

Good afternoon
I'm trying to add drop down box's to different cells on the same sheet

Sub DropDownListinVBA()
Range("A2").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="VIPER CLASS A,VIPER CLASS B,VIPER PHANTOM"

End If

Range("C2").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="TROY,PETER,KAYLA"
End Sub

[TMS]

Fast answers need visual help. Please read the yellow banner at the top of this page on how to attach a file.

[danny25]

Sorry i wasn't aware i posted incorrectly
any help would be great full

[mohadin]

Hi
what about

Sub DropDownListinVBA()
    With Range("A2")
        .Validation.Delete
        .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                        Formula1:="VIPER CLASS A,VIPER CLASS B,VIPER PHANTOM"
    End With

    With Range("C2")
        .Validation.Delete
        .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                        Formula1:="TROY,PETER,KAYLA"
    End With
End Sub

[danny25]

Thanks mohadin
works

[mohadin]

You are very welcome
And thank you for the feedback
Be happy and safe