Forum Discussion
staspe2475
Sep 13, 2024Copper Contributor
Mouse hover in cell to display text LARGER code is very slow
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
staspe2475 Try if this fits your needs:
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("B4:BI84").Validation .Delete End With With Target.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 End Sub
- JKPieterseSilver Contributor
staspe2475 Try if this fits your needs:
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("B4:BI84").Validation .Delete End With With Target.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 End Sub
- staspe2475Copper Contributor
JKPieterse Thank you ...seems great.!!
..What part of the code is making the text bigger ?
- JKPieterseSilver ContributorIt does so by adding text to the Validation input message. You can try manually by selecting any cell, selecting Data, Validation from the menu and then typing some text into the boxes on the Input message tab.