We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Sub DataVal(wbk As Object, SourceSheet As String, SourceColumn As String, DestCol As String) Dim rng As Range Set rng = wbk.Sheets(SourceSheet).Range(SourceColumn & "2:" & SourceColumn _ & wbk.Sheets(SourceSheet).Cells(65536, SourceColumn).End(xlUp).Row) With wbk.Sheets("Severance Tax").Range(DestCol & "10:" & DestCol _ & wbk.Sheets("Severance Tax").Cells(65536, "A").End(xlUp).Row).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ Formula1:="=" & rng.Address & "" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.