The following code works fine on a small Range..

But when i expand the Range for the whole worksheet..it  runs very very  slow

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range
For Each x In Range(“B4:BI84”)
With x.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputMessage = Target.Value ””First Name of Sales Rep”
.ShowError = True
End With
Next x

End Sub

​The following code works fine on a small Range..But when i expand the Range for the whole worksheet..it  runs very very  slow Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim x As RangeFor Each x In Range(“B4:BI84″)With x.Validation.Delete.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, _Operator:=xlBetween.IgnoreBlank = True.InCellDropdown = True.InputMessage = Target.Value ””First Name of Sales Rep”.ShowError = TrueEnd WithNext xEnd Sub  Read More

​