Forum Discussion
Solved
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...
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
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
JKPieterse Thank you ...seems great.!!
..What part of the code is making the text bigger ?
- It 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.
