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.
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
Is there something I am missing? Thank you for your time.