I have 3 Activex listboxes on 1 worksheet. When I make them visible, I cannot scroll to the last item in the list. I have searched for a solution, but they all say to change the IntegralHeight, which I have done.
Code
Private Sub Second_gotfocus()
Dim myheight As Long
Ignore = True
With Second
myheight = .Height
.IntegralHeight = False
.Height = myheight
.IntegralHeight = True
End With
Ignore = False
End Sub
Display More
Is there something I am missing? Thank you for your time.