Snasui Excel Forum

Code: Select all

        With Range("P" & i).Validation
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Completed,Pending"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    
    Next i
    
    Application.ScreenUpdating = True

    Sheets("ARAP").Range("B2").End(xlDown).Select

End Sub