I have a spreadsheet having a command button. Once I click on this button , This need to create a separate workbook and need to insert ‘following code in the sheet1 under Worksheet_Change event. Would it possible ?

Set Rng1 = WS2.Range("$B$1:$B$3")
    Rng1.Name = "AData"

    With WS1.Range("B" & a).Validation
              .Delete
              .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
              xlBetween, Formula1:="=Adata"
              .IgnoreBlank = False
              .InCellDropdown = True
              .InputTitle = ""
              .ErrorTitle = "Wrong Data"
              .InputMessage = ""
              .ErrorMessage = "Data is Invalid !!!"
              .ShowInput = True
              .ShowError = True
               

         End With
Any help is appreciated…